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ABSTRACT 


^he:ks 


TC4 - TC11 TEST 4 IS PART 4 OF A FIVE PROGRAM PACKAGE USED TO TEST THE 
TCI I DECTAPE CONTROL. TC4 TESTS AND EXERCISES THE TCU CONTROL 
AND FROM ONE to EIGHT SELECTED TRANSPORTS. TC4 CONCENTRATES ON TESTING 
FOR CORRECT OPERATION OF THE READ ALL AND WRITE ALL COMMANDS, AND 
FOR CORRECT OPERATION OF THE PARITY CIRCUITS. 

ALL EXECUTION TIMES QUOTED ARE TYPICAL CF A ii/20 SYSTEM. 

EXECUTION TIMES IN OTHER PDP-11 SYSTEMS WILL VARY. 

REQUIREMENTS 


EQUIPMENT 


A. PDP-11 SYSTEM C4K CORE^. 

B ASR33- / 35 TELETYPE 

e! TCi: DECTAPE CONTROL AND AT LEAST ONE TUS6 DUAL TRANSPORT. 

D. AT i_EA5T ONE STANDARD PDP-11 FORMAT DECTAPE. THE GUARD AREAS 

OF THE TAPE BLOCKS MUST BE ZERO. IF NECESSARY. REFORMAT THE TAPE. 


_____ __ _ HAVE THEIR STANDARD PERIPHERAL 

RESSES. INTERRUPT LEVELS. AND INTERRUPT VECTOR ADDRESSES. 

er to Section 7.2 If your system does not have standard 


•TYPE mi CONTROL MUS 

ntrcn tw stv i 7.2 
PERIPHERAL ADDRESSES. 

STORAGE 

THIS ■ TOGRAM USES LOCATIONS OOOQCQ THROUGH 0I75QG. 

« 

loading procedure 


This PROGRAM’S OBJECT TAPE IS PUNCHED IN ABSOLUTE FORMAT, 
THE ASS wOADER IS USED TO LOAD THE PROGRAM. 


T m « rrc* u 

.* % ' 1 % 4k * * 


W*. I V Dv . F < 
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USE PROCEDURE 


DO! 


A. 

S. 

c. 

D. 

E. 

F. 


si • 


H. 

I. 


T 

m • 


load units to be tested with standard format dectape. set to 

/WRITE ENABLE. 

SET WRTM SWITCH OFF, WALL SWITCH TO ON. 

PRESS^AR^ S002 ° C * 

THE PROGRAM* IDENTIFIES ITSELF, TYPES SETUP INSTRUCT IONS, AND HALT! 
PERFORM SETS# (STEPS A AND B).SET UNITS TO BE TESTED IN SR? 
THROUGH SRC AND PRESS CONT. £$R? FOR UNIT7.SR& FOR UNITS. ETC. ' . 

ism g 8ESS88! ^ mo SR oprt;N5 

THIS PROGRAM'S SR OPTIONS ARE: 

HALT on error 




SRI5 = 1 

SRI4 r 1 

SR13 x i INHl b 

SR I I x : INHIBIT ITERATION 

SRIC x 1 HALT AT END OF TEST CURRENTLY EXECUTING 

5R9 x i SELECT THE TEST SPECIFIED BY SR? THROUGH SRC 

SR? THROUGH SRO - NUMBER OF TEST TO BE SELECTED 


SECTION ?.l GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 


THE PROGRAM BEGINS 
AT THE END OF EACH 
THE CHARACTER IS 
REFER TO SECTION S.2 


[CUT I ON, 

>5 THE TELETYPE BELL RINGS ONCE. AND 
r YPED. 

IF ERROR PRINTOUTS OCCUR. 


EXECUTION TIME: 

A. ONE NORMAL ERROR FREE PASS TAKES APPROXIMATELY 3S MINUTES. 
9. ONE SINGLE ITERATION PASS CSRllxi) TAKES ABOUT ? MINUTES. 

THE SINGLE ITERATION PASS IS A CONVENIENT WAY TO QUICKLY 


DETERMINE IF ANY SOLID PROBLEMS EXIST. FOR A 
THE NORMAL ITERATION PASS SHOULD BE RUN. 


r HORCUGH TES1 


RESTART PROCEDURE 


TO RESTART THE PROGRAM WITHOUT GENERATING THE INITIAL PRINTOUTS 
PROCEED AS FOLLOWS: (TRANSPORT UNDER TEST REMAINS THE SAME ) 


A. 

9. 

C. 

c. 

E. 


LOAD ADDRESS 001000 

DC UNIT SETUP AS DESCRIBED IN STEPS A AND B OF USE PROCEDURE. 
SELECT ANY DESIRED OPTIONS, 
ppjrcg START 

GO TO STEP H OF USE PROCEDURE. 


I 


rj # 


TCU TEST 4 
C.Pli 
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PROGRAM AND OR OPERATOR ACTION 


E01 


5.1 


NORMAL HALTS 


LOO 002432 


001764 




REQUIRE THAT THE PROCESSOR STOP. 

)CCURS 


THIS HALT NORMALLY 



INS 


ROUTINE END HALT. THIS HALT OCCURS UPON COMPLETION 
OP THE CURRENT TEST ROUTINE IF SR10 IS SET. THE 
CONSOLE DATA LIGHTS DISPLAY THE NUMBER OF THE TEST 
JUST COMPLETED. 


NORMAL PRINTOUTS 


6 . 


ALL NON-ERROR PRINTOUTS ARE NORMAL PRINTOUTS 
TITLE. AND USER ERROR PRINTOUTS ARE NORMAL f 

ERRORS 


i. INSTRUCTION. 
PRINTOUTS. 


6.1 


ERRORS ARE REPORTED IN THIS PROGRAM BY THE FOLLOWING METHODS: 


A. 

8 . 


10NAL ERROR HALTS, OR 

INTCUT FOLLOWED BY OPTIONAL ERROR HALT. 


UNCONDITIONAL ERROR HALTS 



NCONDIT 
U IF 
RANSFEf 


3NAL ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED 
3UGH HARDWARE OR SOFTWARE FAILURE. PROGRAM CONTROL 
■D TO AN UNEXPECTED AREA BETWEEN SOCCOC AN0 Q0CI76. 

RVED AREA 
jR TRAP 

-ERV|d INSTRUCTION TRAP 
. U TRAP 

POWER FAIL TRAP 

WO THROUGH 000176 - SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA. 
EXCEPT FOR TCU ANO TTY VECTORS. 

rO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED, 


A. EXAMINE CONTENTS OF REGISTER 6. (ADORESS 177706). 

B. TRANSFER THE CONTENTS OF REG 6 TO THE SR. LOAD ADORESS AND EXAMINE. 

C. THE DATA SHOWN IN THE DATA LIGHTS IS THE VALUE OF THE PC WHEN THE FAILURE 
l. LOCATE IN PROGRAM LISTING THE DISPLAYED PC VALUE. 



/YYY ’SOCT 
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(8. I CONT’D) 

E. THE INSTRUCTION THAT IMMEDIATELY PRECEDES THE ONE REFERENCED 
BY THE DISPLAYED PC VALUE IS THE INSTRUCTION THAT WAS /WAS BEING 
EXECUTED WHEN THE FAILURE OCCURRED. 

AN UNCONDITIONAL ERROR HALT FAILURE IS AN ABNORMAL CONDITION 

HU KHAWMiBiKt. 

ORDER TO PERFORM ITS TESTS. ANY FURTHER STEPS REQUIRED TO DIAGNOSE AN 
AN UNCONDITIONAL ERROR HALT ARE NOT WITHIN THE SCOPE OF THIS PROGRAM. 

ERROR PRINTOUTS 


ERROR PRINTOUTS ARE GENERATED BY THE "ERRN" SUBROUTINE. THE 
**ERRN" SUBROUTINE IS CALLED BY AN "ERRORN" STATEMENT IN THE 
PROGRAM LISTING. AN ERROR PRINTOUT LOOKS AS FOLLOWS: 

T XXX PC OYYYYY ICNT 2222. UNIT W FPC OWVVV 
UP TO 2 ADDITIONAL LINES OF ERROR INFORMATION. 

WHERE: 

T XXX IS THE NUMBER OF FAILING ROUTINE (OCTAL), 

PC OYYYYY IS THE ADDRESS OF ERROR CALL, 

ICNT 2222. IS THE ITERATION COUNT AT TIME OF FAILURE. 

UNITW IS THE UNIT IN USE AT TIME OF FAILURE. 

FPC OWVVV IS TYPED WHEN THE ERROR CALL IS GENERATED BY A 

SUBROUTINE. AND IT IS NECESSARY TO INDICATE WHERE 
THE SUBROUtlNE WAS CALLED FROM. 

AFTER THE PRINTOUT IS COMPLETED. THE PROGRAM WILL HALT AT 
COMMON ERROR HALT AT LOC 002446 IF SRlS IS SET. 

WHEN AN ERROR PRINTOUT OCCURS: 

A. LOOK UP THE ADDRESS REFERENCED BY PC OYYYYY IN THE LISTING. 

B. OPPOSITE THE PC VALUE AN ERRORN STATEMENT WILL BE FOUND. AND 
IN THE COMMENTS SECTION. A DESCRIPTION OF THE ERROR. 

C. AT THE BEGINNING OF THE TEST ROUTINE A DESCRIPTION OF THE TEST 
WILL BE FOUND. 

UP TO 2 LINES OF ADDITIONAL ERROR INFORMATION MAY APPEAR ON AN ERROR 
PRINTOUT. SOME OF THE ITEMS THAT MAY APPEAR ARE: 

A. BLKRQ XXXX. BLKRQ REPRESENTS THE INIT|AL BLOCK NUMBER USED WHEN 
AN OPERATION WAS INITIATED. (IN A 2 OR MORE BLOCK TRANSFER. BLKRQ 


REPRESENTS THE INITIAL BLOCK NUMBER. EVEN THOUGH A FAILURE MAY 
NOT HAVE OCCURRED UNTIL A SUBSEQUENT BLOCK. 

B. IN A DATA ERROR PRINTOUT THE “WORD I" THAT FAILED REPRESENTS THE 
POSITION OF THE CORRECT WORD IN THE WRITE BUFFER. AND IT IS NOT 
MEANT TO DESCRIBE THE WORD’S POSITION IN A DECTA^E BLOCK. 


t:h - ten test h 

D2TCCC.Pi: 
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MISCELLANEOUS 


GOl 


SR OPTIONS 


THE STANDARD SR OPTIONS ARE DESCRIBED HERE. 


SRI5 


SR14 


SR13 


SR1I 


SR ID 


HALT ON ERROR. WITH SR1S SET TO A 1, THE PROGRAM WILL 
HALT AFTER AN ERROR OCCURS. PRESSING CONT WILL CAUSE 
PROGRAM TO RESUME OPERATION. 

SCOPE. THIS OPTION CAUSES THE PROGRAM TO REMAIN IN THE 
CURRENT TEST ROUTINE. WHEN THE OPTION IS REMOVED. THE 
PROGRAM WILL COMPLETE THE CURRENT ROUTINE. AND wiu. THEN 
GO ON TO THE NEXT ROUTINE. 

INHIBIT ERROR PRINTOUT. THIS OPTION IF SET. WILL REMOVE 
ALL ERROR PRINTOUTS. 

***#*NOTE***** 

SCOPE MODE OPERATION IS ACHIEVED BY LOCKING THE 
PROGRAM IN THE CURRENT ROUTINE. INHIBITING ERROR 
PRINTOUTS, AND BYPASSING ERROR HALTS. 

INHIBIT ITERATION. SETTING THIS OPTION WILL CAUSE THE 
PROGRAM TO EXECUTE EACH TEST ONLY ONCE. INSTEAD OF THE 
NORMAL NUMBER OF ITERATIONS SELECTED F&R EACH TEST. 

TWO POSSIBLE USES OF THIS OPTION ARE: 

A. QUICK PASS. EACH TEST IS RUN ONLY ONCE. 

B. TO SKIP OVER A FAILING ROUTINE. 

HALT AT END OF CURRENT ROUTINE. WITH THE OPTION SET. 

THE PROGRAM WILL HALT AT THE END OF EACH TEST. AND 5 I SPLAY 
IN DATA LIGHTS THE NUMBER OF THE TEST JUST COMPLETED. 

THREE POSSIBLE USES OF THIS OPTION ARE: 

A. TO STEP THROUGH THE PROGRAM ONE ROUTINE AT A TIME. 

B. WHEN THE PROGRAM HAS BEEN RUNNING FOR A WHILE. TO 
FIND OUT HOW FAR IT HAS PROGRESSED. 

C. IN CASE OF A BLOW UP. ETC.. TO STEP THROUGH ONE TEST 
AT A TIME UNTIL THE FAILURE REOCCURS. THE ROUTINE 
FOLLOWING THE PREVIOUSLY COMPLETED ROUTINE WOULD BE 
THE FAILING ROUTINE. 

SELECT ROUTINE. WITH SRS SET. THE PROGRAM WILL GO AND 
EXECUTE THE ROUTINE INDICATE^ BY SR7 THROUGH SRO. AFTER 
THE CURRENT ROUTINE HAS BEEN COMPLETED. IF THE OPTION 
IS REMOVED. THE PROGRAM WILL PROCEED TO EXECUTE THE 
ROUTINES F6LLOWING THE SELECTED ROUTINE. 


O I 


TCli TEST 4 




1 V* * 

.pi: 


HOI 
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TESTING TCli AT NON-STANDARD ADDRESSES AND 'OR VECTORS 


_ PROGRAM CAN TEST THE TCli AT NON-STANDARD ADDRESSES AND 
TORS PROVIDED THOSE ADDRESSES AND VECTORS ARE PROVIDED TO 

THE PROGRAM AS FOLLOWS: 

A. AFTER LOADING PROGRAM REFER TO PROGRAM LISTING AND CHANGE 
LOCATIONS 001004 THROUGH 001020 TO REFLECT THE NEW TCli 
ADDRESSES AND VECTORS. 

S. IF THE TELETYPE IS ALSO AT NON STANDARD ADDRESSES, CHANGE 
LOCATIONS 001022 AND 001024 ALSO. 

C. PROCEED TO USE THE PROGRAM, OR 

D. USING STANDARD DUMP ROUTINES, DUMP OUT THE ENTIRE PROGRAM 
IN ABSOLUTE FORMAT TO HAVE AN OBJECT TAPE THAT REFLECTS 
YOUR SYSTEM, OR 

E. DUMP OUT ONLY LOCATIONS 001004 THROUGH 001024 IN ABSOLUTE 
FORMAT. AND LOAD IT ALSO AFTER LOADING THE MAIN PROGRAM. 


DESCRIPTION 


f 

! 

i 

I 

I 


1 


THIS PROGRAM IS ORGANIZED INTO THREE MAIN SECTIONS: 

A. CONTROL ROUTINE, 

B. TEST ROUTINES. 

C. COMMON SUBROUTINES 

S.i CONTROL ROUTINE 


THE CONTROL ROUTINE ASSUMES CONTROL WHEN THE PROGRAM IS STARTED. 
IT HAS THE FOLLOWING FUNCTIONS: 

A. CONTROLS SEQUENCE OF TEST ROUTINES. 

B. HONORS AND ACTS ON SR OPTIONS. 

THE CONTROL ROUTINE IS CALLED FROM A TEST ROUTINE BY THE 
"SCOPE" STATEMENT. 
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TEST ROUTINES 

THE ACTUAL TESTING IS PERFORMED BY A SET OF TEST ROUTINES THAT 

CONTROL 

ROUTINE IN ORDER TO PROPERLY SEQUENCE THROUGH THE TESTS. THE HEADER 
LOCKS AS FOLLOWS: i EXAMPLE ) 

*^*******Ht*********4Ht**ft*******4HHtiHt********M***************** 

T3: 3 -.ROUTINE NUMBER 3. * 

T4 ; ADDRESS OF NEXT ROUTINE * 

10. ; TEST ITERATION COUNT * 

BAGA ; SCOPE ENTRY POINT * 

**********#iH**************#*«iHHt**##*##****#*«*#*###*********** 

THE FIRST 2 ITEMS ARE SELF EXPLANATORY. THE TEST ITERATION COUNT 
INDICATES TO THE CONTROL ROUTINE THE NUMBER OF TIMES THE TEST 
SHOULD BE PERFORMED BEFORE GOING ON TO THE NEXT ROUTINE. 

THE SCOPE ENTRY POINT INDICATES TO THE CONTROL ROUTINE THE ADDRESS 
IT SHOULD RETURN TO AFTER THE FIRST ITERATION. THE ADDRESS MAY 
NOT NECCESARILY POINT TO THE FIRST INSTRUCTION OF THE TEST. 

COMMON SUBROUTINES 


AL’ SUBROUTINES NEEDED BY EITHER THE CONTROL ROUTINE OR TEST 
ROUTINES ARE GROUPED TOGETHER. THE MOST SIGNIFICANT SUBROUTINE 
IS THE “ERRN S SUBROUTINE, WHICH IS CALLED BY AN "ERRORN" STATEMENT 
AND TYPES THE TEST NUMBER AND PC VALUE WHEN A FAILURE OCCURS. 


TC4 - TCll TEST H 


D2t:oc.pii 
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37S 

379 

3SC 

§1| OOCCOQ 
3S3 000002 

394 OOOOOH 

395 000006 


.LIST 

.NUST 

.ASS 


SEQ.BIN.ME 

MC.nD 


lie oggoiH 
399 000018 
390 000020 

iik m 

393 000028 


gcgcoo 

000002 

oooooo 

000005 

OOOOOO 

$3mi 

OOOOOO 

002110 

000340 

002340 

0§0026 

OOOOOO 


394 

000030 

002110 

395 

000032 

000340 

396 

000034 

U027S6 

397 

000036 

OOOOOO 

399 

399 

1 400 


177570 

401 


177776 

H0| 


ggioog 

uno 

« w w 


000240 

404 


o$3ooo 

405 


100000 

100000 



4Q7 


040000 

408 


020000 

409 


010000 

410 


ggHOog 

411 


002CQC 

412 


001000 

413 


000400 

414 


000200 

415 


000100 

4 if 


000040 

• 4X7 


000020 

418 


000010 

; 4i9 


000004 

i 420 


000002 

j 421 


000001 

I 422 


oooooo 

i 423 


000001 

’ 424 


000002 

* 425 


000003 

I 426 


QQDQOH 

: 427 


000005 

f 42 fl 


000006 

| 429 


000007 

i 4 «lH 

| 1 ■Ht0> 


000007 


MACHER: 


TRCV: 

IOTV: 


EfITV: 

TRPV: 

; LOG HO 
; EQUATE 


!+2 

HALT 

.+2 

HALT 

.♦? 

HALT 

SV5S 

PRTY7 

RS5S 

PRTY7 

.+2 

HALT 

EMTINT 

PRTY7 

DLY 

PRTYO 

THROUGH 376 ARE FILLED W 

STATEMENTS 

SR=177570 

PSW= 177776 

SPB0T=1000 

N0P=24Q 

OPEN=Q 

MANUAL=BIT15 

BIT15=100000 

81114=40000 

3IT13=20Q00 

BIT12=100C0 

BIT1 1=4000 

BIT10=200C 

BIT9=l500 

BITBsHOO 

BIT7=2Q0 

BIT6=100 

BIT5=H0 

BITH=2g 

BIT3=10 

BIT2=H 

BIT1=2 

» 

Rl=*/.l 

R2=*2 

R3=%3 

RH=‘/.H 

R5=‘/.5 

R6=*/.6 

R7='/.7 

PC=>;7 





NO 



;G0 TO START OF PROGRAM. 

SS INITIAL PRINTOUTS. 
STATUS REGISTER. 

BUS ADDRESS RESISTED. 

DATA REGISTER. 

INTERRUPT VECTOR 
INTERRUPT PRIORITY LEVEL. 
CSR 

BUFFER 

AINS CURRENT ITERATION COU 
AINS ACCUMULATED ITERATION 
AINS STARTING ROUTINE ADDR 
. AINS CURRENT SCOPE POINTER 


POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 


FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 
FOR EMT CALL 


SCOPE 

SRESET 

SAVQ3 

RST03 

SAV05 

RSTQ5 

SAVOSS 

RST05S 

TYPE 

ERRORN 

OACNV • 

BDCNV 

BMOVE 

CHALT 







MO 


4 - TC11 TEST 4 
TC0C.P11 
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N01 


l?4 001242 

575 001245 

576 001252 

r il 

579 001262 

111 001264 
582 001272 

m e§ii§5 

$85 001310 
586 001316 


589 Q01324 

590 001326 

591 001330 

592 mi332 

393 001336 
‘ ^1340 

U--1344 
001346 

mm 

001362 
001364 

600 001366 

601 001370 

602 001376 

603 001400 

604 001404 

605 001406 

606 001410 

607 001412 

608 001414 

609 001420 

610 001422 

611 001424 

612 001426 

613 001430 

614 001436 

615 001440 

616 001444 

617 001452 

618 001454 

619 001456 

620 001460 

621 001466 

622 001474 

623 001476 

624 001500 

625 001502 

626 001506 

627 001514 

628 001516 


012706 

005067 

104010 

mb 

001524 

012767 

112767 

012700 

005267 

042767 

104052 

m 

104020 

004002 

000437 

005777 

100375 

005777 

100031 

012777 

012777 

104020 

000015 

000420 

032777 

001774 

005777 

100411 

104022 

005300 

001394 

105767 

001015 

104010 

011060 

000571 

032777 

001763 

Cu67pl 

146167 

000715 

104010 

011226 

012767 

012767 

m 

000407 

016700 

116067 

104010 

011251 


001000 

177564 


000042 


000402 001336 
000376 177566 
000010 
000010 

177770 000002 


START: MOV 

CLR 
TYPE 

BF 

3EQ 

; ROUTINE TO 


DTRMN: 


lSPB0T,R6 

RTNN0 


3 #42 
STRTA 


; SET BOTTOM OF SP STACK. 

; TYPE TITLE. 

; PROGRAM LOADED VIA MONITOR 7 
:BR IF NOT. 



SQDRV1: 


177450 

177440 

011276 177436 
177777 177426 


100200 177410 
177402 

177446 


DTRMNA: 


014000 177346 DTRMNB: 


177654 

006634 177414 


000001 000010 
000007 177350 


17735b 

011254 007535 


DTRMNC: 


CPENA: 


MOV 
INC 
8IC 

SELDRV 
OPEN 

SETCOM 
RNUM4-REV 
BR 
TST 
BPL 
TST 
BPL 
MOV 
MOV 

SETCOM 
WDATA+FWD+DO 
BR 


•8. JlO 
SQDftvi 

#177770,SQDRV1 


DTRMNA 


DTRMNB 

3TCCM 

.-4 

3TCST 

DTRMNB 

•WBUF0.3TCBA 

I-l,8TtwC 


•SET UP TO TES 


; SELECT A TRANSPORT. 

TRANSPORT *. 

UNIT NOT AVAILABLE RETURN. 
•REWIND TO REVERSE END 20NE. 

; ERROR RETURN. 

•WAIT. 

;END ZONE? 

BR IF NOT. 

•SET CURRENT ADDR. 

SET WORD COUNT. 

YES. ISSUE WRITE DATA COMMAND. 


BIT 

BEQ 

TST 

BM! 

STOPDT 

DEC 

BNE 

TSTB 

BNE 

TYPE 

NOUNIT 

BR 

BIT 

BEQ 

MOV 

BIOS 

BR 

TYPE 

GOOD 

MOV 

MOV 

SELDRV 

OPEN 

BR 

MOV 

MOVB 

TYPE 

GTAPES 


DTRMNB ; ERROR RETURN. 

•BIT 1 5+8 1 T7 , 3T CCfl ;WAIT FOR ERROR /'READY. 

3TCCM ; ERROR? 

DTRMNB ;§R IF YES. 

•STOP DECTAPE. 

RO -DONE 8 TIMES ? 

DTRMN ; BR IF NOT. 

UNITS -ANY UNITS AVAILABLE? 

DTRMNC ;8R IF YES. 

•TYPE NON AVAILABLE MESSAGE. 

CHNC :G0 EXIT. 

•BIT12+BIT11,3TC§T ;ILO OR SELE ERROR 7 
DTRMNA 
SQDRV1.R1 
UNT A3 (i), UNITS 
DTRMNA 


* w * I AW 

;BR IF N6T. 

: DESELECT NON AVAILABLE TRANSPORT. 
; TYPE UNITS TO BE TESTED. 


•1, CPENA 
•7,CTRA 


CPENB 
UNITN.RO 
GTAB(6>, GTAPES 


•.CHECK UP TO 7 UNITS. 
•SELECT DRIVE. 

•UNIT TO BE SELECTED. 

; UNIT NOT AVAILABLE. 
SUCCESS. 

•GET ASCII » FOR GOOD TAPE. 
TYPE » OF UNIT TO TEST. 







mcvii ob-ser- 
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STRIA: 


1575* 175022 ittsib 

1 c * 1 


Ir £ 

TYPE 

S» 

flOvB 


If! 

ip mm *m GE7R0V: 

ijTjg &0 |hJ 175174 GTROYX: 


5? 177274 


17 000214 GTRCYA: 

0Q1CCC 175734 GTRDYB: 


GORUN: 

f **"* ♦ 

177155 175715 GTROYC: 
177777 177155 GIRO YD: 


ASETSR 

CHAIT 

nov 

NOV 

NOV 

li:TR 

jsr 


TYPE 

AXNCRT 

:ha:nn: stopct 


iscMg 


1770bC 


! fyy^f * 

4 * «#%# * 

CHNABs 

175530 CHNA; 


175512 


, 001 COO 175574 

J I77T7 OTHS 


CPENfl 

CTRfl 

m 2 


W TS 


!spboKrI w 

ail par 




SvURTSI 


RT^.SR 

GTRC>« 


GETROv 

•§»JCT.R5 

ivri* 

illTiN.SR 

wHrW 

j|j$ii?SR 

•«T10.£R 


RTNN0.R0 

® ss 

•-I.NXTST 

GTRtYX 


UPDATE TO NEXT DRIVE. 

f COKED ALL DRIVES’ 

IF NOT. 

TYPE UNIT SELECT INSTRUCTIONS. 

IMs^- 

T YPE r SR°OP?ION C NFS§AGE . 

CONNON HALT. 

ENABLE ERROR PRINTOUTS. 

ADDR OF 'ST ROUTINE TO NXTST 
SET PRIORITY 7. 

SET BOTTOM^ OF STACK. 

iwiSSJfe *r* 


ROLL EORMRRO TO "NEXT- ROUTINE. 

V. 


|^|^T| COUNT. 

tstinhib^IIerrtion SHITCI 


JCNT TO -I. 


U NOT SET. 
. DRIVE. 


:olnt. 


SU SE* 


feS -uP”'’ u sr 

^INE^ND^T^ IeT’ <SR’C' 

?Esf • to 88! SET ‘ 

ROUTINE END HALT. TEST • IN LIGHTS, 

KWR ff» 

LAST TEST’ 

BRANCH IF NOT LAST TEST. 

TYPE PROGRAM END SELL. 


til 









test h 
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012555 

rttsttt 


01275 ? 

558*403 




OOOCH2 


WS 


mm 

|g 


020002 


17111H 


1777*1 


j 


000020 




0000% 


CG 02 H 0 000035 


000021 


APGEND 

MOV 


0002*40 


LOGIC: 


3 EQ CHNC 

m. & m k * 

MOV j|) 4 .NXT« 
FORWDA: MOV RS.cCItsT 

Jj£ m ] ' m 


PC. i 0 ) 

NOP. NOP, NOP 

CHflt 

m k * 

(SH.RTNNQ 

;|}4 .hxtst 
(l)^icOPTR 
•i ! icnt 1 

^3 |U Rif! 

n i nnU , an 

R? 


;^T i CONTENTS OF M 2 . 

;< R Y lF NI of * VAILABLE F0R TE£ 

R - 

•GET ADOR OFNEXT TCXTROUl 

lit Icope T lSop c entry points? 

•ffiOR OFjN^ CURRENT TEST T C 

jEXIT FCRWO SUBROUTINE. 

; PUSH RO. 
sGET EMT PC. 

; 'GET EMT CALL, 
s * tHES c* 


ngv EHTTflB-lOCOCtO! .ftO -FOR; EfIT A5 S R 

H 15 Kii | wW * w 1 bit* 1 H I ■!» w * V 1*5 T\^0 m 


:SA VE REGS 0 TO 3 SUBROUTINE. 

SV 03 : MOV iSJ^.-IC.ife) :MOV| PC UPS TACK . 

MOV J^OVE STATUS l#SfAC,%. 

ilbls T0 PLACE Effr PC IN R5, 

:SU 8 TO ISvE REsITtO 5 a 


mi 


SvOSB: MOV 


SvOSC 


t mm*** # 
4 # i ( ft ft 


•RTI.SVOSC 
C5H.-iM.iS) 
(5'^,-jH . ih 

R 2 .-CS; 

Mi 

rift | Fvf 

-CM) 

TO 3 SUBROUTINE. 

-io!‘ji.-'.fe 


; MC *’£ 


PSU UFSTACk, 


R NOP. 


Sent pc Vo As. 


jEXIT. 


; RESTORE REGS 0 TC *4. 


;MO.t PC AND PSk CONN S'ACk. 


TCH - TCil TEST 4 
DTTC0C.P11 


D02 



104005 

OlOHOO 

CQ0QC2 

1C4CQ7 

000002 


002440 

n02 4 HH 

53446 


nflCYll =7(702) 09-SEP-76 09: CM PAGE lb 


-I0.t6i.-i6) 


052525 

177770 


005757 175124 

1 C30C1 
000002 


MOV 

RTI 

SUB TO SET R5 IN ENT P 


ftSO§S: 
:SUB TO 
ftS05: 


MOV 
RESTORE 
P0PSP2 
MOV 



•EXIT 

REStORE REGS 0 T05. 

; SET EMT PC TO R5 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

SV5S: MOV 

MOV 
MOV 
MOV 
PUSH2 
MOV 
MOV 
TST 
RTI 

RS55: MOV 

P0PSP2 
MOV 
MOV 
MOV 
MOV 
RTI 

: ROUTINE TO ! 

STTCV: SAvO 

MOV 
MOV 


MOV 


RST05S 


(6Jt.R0 
£6)t.Rl 

(5) 4. R2 
( fe ) ♦ , R3 
( 6 5 ♦ . R4 

( 6 ) t , RS 
-14.(5), -lb) 
-14. (6i ,-i f ' 

!. b 5 1 , —6 ( 5 < 
i 5 ) t , -5 ( 5 ) 
R5.-’5) 

R4 , - i 6 5 

8. ' 65 ,R5 
R5.R4 
-(45 

R5.9. <5- 

£5)t,R4 
( 5 5 + . R5 
—5 1 5 j i 5 ' 

-5 ( 6 > , - v 5 ) 

T TCil INTERRUP' 

T0VTR.R1 
C 5 5 ♦ , ’i ) ♦ 
TCLVL.il : ♦ 


:ROl 

§RSI 


RTI 
JTINE TO 
(TT: 


ISSUE RESET. 
RO,- ( 5 i 
•5c525.RC 
RO 

RQ.SRSETT+4 


CONTENTS. 


MOVE PC AND PSW D — 4STACK . 
EXIT. 

PC AND PSW UPSThCK. 


SAVE R5. 
SAVE R4. 


EMT PC 
EMT PC 


TO R5. 
TO R4. 


EXIT EMT SUS. 
R5 TO EMT PC. 

RESTORE R4. 
RESTORE R5. 


vie * 


exit 

‘ or 'and priority 


vector to Rl. 

SET DESIRED VECTOR. 
SET TCil PRIORITY. 


MOV 
MOV 
COM 
MOV 
RESET 

MOV (5it.R0 

RTI 

: COMMON HALT ROUTINE 
£hlT: SAV05S 

MOV R4.R0 

HALT 
RSTOSS 
RTI 

CONDITIONAL ERROR HALT ROUTINE. 


; PUSH RO. 

;DATA TO RO. 
•.COMPLEMENT «. RC K 
; (RC ) TO SRSETTtH. 
; ISSUE RESET. (RC' 
: RESTORE RC. 
jDISPLAYED. EXIT. 


IS 


: DEVELOP ADDR OF CALLER. 
•.HALT CALL ADDR IN 

; EXIT. 


LlGTi 




v Wl . 

£hlT: 


TST 

BPL 

HALT 


SR 

EHLTA 


•.CHECK FOR HALT ON ERROR. 

; BRANCH IF NO HALT DESIRED. 
;HAlT. 



I titi. 
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- TCI 1 TEST H 
C0C.P11 


MAC v i I “"32} 


002656 000002 



003010 

00301 6 

3032 

is 


m 

112001 

001006 

12701 


b 


10H0C 
000002 
122701 
301411 
554767 
000762 

m 

100375 

555207 

112701 


000177 

500020 


0000H5 

000002 


17E 

17E 


0047 t 7 


112701 

504767 

000743 


m 


?gaai2 



012767 

016767 

016767 

o55oo2 

000555 

oooooo 

000000 


177777 

000012 

000004 



177770 

177764 

177754 


177752 

177746 


177736 


QQ31Q6 104006 
553110 013500 
203112 012501 


000016 

000012 

000006 


1 / # # t 0 


R f I : EXIT EMT SUS. 

; SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER 
SAV05S 
MOV 


tYP: 

TYPA: 


(5)+,R0 

■>0)h,R1 

typc 

•177, R1 
R7.TYPD 


ADDRESS OF MESSAGE TO RO. 
GET CHARACTER 
BRANCH IF NOT TERMINATOR. . 
OUTPUT RU80UT. 


'YPC : 


TYPD : 


TY FFs 
TYPG: 


?& RI 

R7.TYPD 

TYPA 

»d 


; TERMINATOR CHAR. DONE. EXIT 
; CHECK FOR"*/.". 

; BRANCH IF"*/." 

; TYPE CHAR IN R1 


; OUTPUT CHARACTER "0 PRINTER 
•WAIT FOR DONE FLAG. 


* » * ■ » * i ft 

'A*vk 


: EXIT 

; MOVE 
; GO TYPE CHAR. 


; MOVE CARRIAGE RETURN CODE 


rv , M 

TYPA 


; MOVE LF CODE TO RI. 
;G0 TYPE CHAR. 


OOOOOO 

OOOOOO 


MOVB 
BNE 
MOVB 
JSR 

R3T05S 
RTI 
CMP8 
BEG 
JSR 
BR 

MOVB 
T$T8 
BPL 
RTS 
MOVB 
JSR 
MOVB 
JSR 
SR 

; SUBROUTINE TO DELAY. 

DLYR0=DLY+4 
DLYRI =DLYA+4 
MOV #5000.. 10 

MOV *1000. . sO 

DEC DLYRi 

BNE OLYB 

DEC DLYRO 

BNE DLYA 

RTI 

: SUBROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
iNBINN: MOV *-i.RIND ; SET ALL VARIABLES 

MOV rin6,pto 

MOV RIND.PT1 

RTI ; EXIT. 

RIND: OPEN 

PTO: OPEN 

FT 1 : OPEN 


DLY: 


DLYA: 

DLYB: 


; DELAY COUNT TO DLVR1. 
; DLYRI -1. 


;DEC DLYRO. 
;Exr 


SPECIAL BINARY COUNT PA' 


177742 


GT9IN1: MOV 
COM 
COM 
BNE 
INC 
MOV 
SAVSS 
MOV 
RST5S 
RTI 

:EMT SUB TO C< 
5ACNVV: SAVQ5< 
MOV 
MOV 


PT0.PT1 

PT1 

RIND 

>6 

PTl 

PT1.PT0 


* i 


ERN SU8R0U1 

; PREVIOUS BIN CHAR 


TINE 


rr • 

i v r i i 


:SAVE BIN CHAR IN PTC 


PTl. (S'* 


: EXIT . 

INVERT OCTAL TO ASCll. 

SAVE REGS. 

2(5)+,RQ 
(SH.ftl 


GET OCTAL VALUE. 

GET DESTINATION ADDR. 


tch -tch test h 
OZTCOC.Pll 

909 003114 012502 

910 003116 060201 

m m m 

913 003126 062703 

914 003132 110341 

m its m 

917 003142 006000 

918 003144 006000 

919 003146 005302 

920 Q031§Q 001363 

921 003152 104007 

922 00315° 000002 
9 S 3 

9c4 003156 104006 

925 003160 012501 

926 003162 012502 

927 003164 012503 

928 003166 112122 

929 003170 005303 

930 003172 001375 

931 003174 104CC7 

93| 003176 000002 

934 003200 104006 

935 003202 013501 

936 003204 012700 

937 003210 012702 

938 003214 012703 

939 003220 005004 

940 003222 161201 

941 003224 103402 

942 003226 0Q5204 
ou3 QQ323Q 000774 

944 003232 061201 

945 003234 062704 

946 503240 110420 

947 003242 005722 

948 003244 005303 

949 003246 001364 

950 003250 012501 

951 003252 012502 

952 003254 060201 

953 003256 114041 

954 003260 005302 

955 003262 001375 

956 003264 x 04007 

957 003266 000002 

958 003270 023420 

959 003272 001750 

960 ‘ 003274 000144 

961 003276 000012 

962 003300 500001 

963 003302 040 

964 003305 040 
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G02 



MOV 

(5)*.R2 

; GET CONVERT COUNT. 


ADO 

R2.R1 

; DEVELOP ADDR TO STORE 1ST CHAR. 


OACNVA: MOV 

R0.R3 


• #%•*•***** 

i i i / * U 

B^C 

#1^7770, R3 

; ISOLATE LEAST SIGNIFICANT DIGIT 

000060 

ADD 

#60, R3 

; CONVERT DIGIT TO ASCII. 


MOVB 

R3.-U) 

;STORE ASCII CHARACTER. 

000007' 

SIC 

#7.R0 



ROR 

RO 



ROR 

RC 



ROR 

RO 



DEC 

R2 

;DONE ALL DIGITS'* 


BNE 

OACNVA 

; BRANCH IF NOT DONE. 


RSTC5S 


; RESTORE REGS. 


RTI 


;DONE. EXIT. 


EMT SU8 TO MOVE VARIABLE NUMBER OF BYTES. 


BMOVA: 


SAV055 

MOV 

MOV 

MOV 

MOVB 

DEC 

BNE 

RST05S 

RTI 


(5)+,Ri 
( 5 ) + , R2 
(S5+.R3 
( !)♦, i5)+ 

P'S 

BMOVA 


;SAVE REGS. 

; GET*'FROM" ADDRESS 
;GET M TO” ADDRESS 
; GET COUNT 

!move byte 

; DECREMENT COUNT 
; BRANCH IF NOT DONE. 
•.RESTORE REGS. 

:DONE. EXIT. 


000005 


:EMT SUB TO CONVERT BINARY TO DECIMAL ASCII. 
feOCNW: SAVOSS ;SAVE REGS. 

MOV 3C5J4.R1 GET BINARY 

MOV iDEC vAl.RO ;ADDR OF DEC 


000060 


MOV 

MOV 

MOV 

SDCNVA: CLR 
30CNVB: SUB 
80S 
INC 
D R 

BDCNVC : ADD 
ADD 
MOVB 
TST 
DEC 
BNE 
MOV 
MOV 
ADD 

BDCNVD: MOVB 
DEC 
BNE 

RST05S 

RTI 

TENPWR: 10003. 
1000. 
100 . 
10 . 

1 

040 DECVAL: .BYTE 

OHO 


#T£NPWR.R2 

#5.R3 

R4 

C2),Ri 

BDCNVC 

R4 

SOCNVB 
(2). R1 
#60. RH ;C< 
R4.i0)+ 

(sU 

R3 

SDCNVA 

(55+.R1 

(55+.R2 

R2.R1 

-CO).-(i) 

R2 ' 

BDCNVD 


; SAVE REGS. 

GET BINARY VALUE. 

RO ;ADDR OF DECVAL TO RC. 

R2 ADDR OF 10 POWER TO R2. 

; SET UP FOR S CONVERSIONS. 
; CLEAR RESULT. 

:10 POWER FROM VALUE. 

:BR IF UNSUCCESSFUL. 

;:I TO RESULT. 

:60 IT AGAIN. 

; RESTORE SUBTRACTED VALUE. 
; CONVERT RESULT TO ASCII. 

; STORE RESULT. 

•UPDATE 10 POWER ADDR. 
;DONE 5 TIMES’ 

; BR IF NOT. 

•GET ADDR TO STORE ASCII. 

; GET » OF DIGITS REQUIRED. 
; START WITH LSD. 

) ; TRANSFER CHARACTER. 

;DONE’ 

:3R IF NOT. 

; RESTORE REGS. 

EXIT. 


OHO. OHO. OHO. OHO. OHO, OHO 


TC4 - TCii TEST H 
02TC0C.P11 
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H02 


987 

993 

989 

990 

||i 

994 

998 
» nnr 

4 w v w 

1001 

100c 

1002 

1004 

Ml 

1 WWW 

1007 

* wUc 

1009 

1010 
1011 

1014 

1015 
1015 

1017 

1018 

tSiJ 


003310 

003315 

003324 

003332 

003340 

003348 

003350 

003354 

003382 

003370 

003375 

003404 

003406 

003414 

003416 

003420 

003422 

003424 

003428 

003430 

003432 

003434 

003436 

003442 

003444 

003452 

033954 

003458 

003482 

003464 

m 

003472 

003476 

003500 

R 

003542 

0Q3S44 

8§P 


017767 

n i ***•£ ** 

U i * <’ O 4 

017767 

017767 

017767 

000002 

005067 
016767 
057667 
016777 
032777 
001414 
032767 
001410 
000003 
104021 
104011 
011207 
011105 
010634 
1 ? 7 { 7 f 
104000 
062716 
000002 


042777 

000002 

000003 

88777 

100406 

005725 

005725 

000004 

005067 

00QQ02 

005777 

100770 

005767 

001404 

032777 

001360 

104021 

104011 

011207 

010704 

010634 

010715 

177777 

000752 

000003 

104021 

* ruin f | 

iy"y * 1 


175471) 

175464 

175460 

175456 

175446 


175514 

175502 

ocoooo 

175474 

100200 


000002 


Kill! 

m * WWWW 

175522 

175512 

175510 


175506 

1755 n 0 

175410 

175402 


300001 175454 


7 000116 175334 


175324 


175414 

175300 

175400 

040000 175262 


;EMT SUB fC SAVE TCCM, TC5T, TCDT.TCWC.TCBA. 
STATS: MOV 3TC$T,TCSTT ;SAVE fC5T. 

MOV 3TCCM, TCCMT ; SAVE TCCM. 

MOV 3TCWC, TCWCT iSAVE TCWC. 

MOV 3TCDT.TCDTT ; SAVE TCDT. 

MOV 3TCBA.TCBAT ; SAVE TCBA. 

ATI : EXIT EMT SUB. 

:EMT SUB TO ISSUE OT COMMAND SPECIFIED AT CALL+2. 


iwi > www * w 

§TC0M: CLR 

MOV 


BIS 3(6) .COMND 

MOV C0MND.3TCCM 

SIT iBITl§'BIT7,S 

BEQ STCOMB 

BIT I TO. COMND 

BEO STCCM& 

SAV5S 

STATUS 

ERRORN 

FPCMSG 

STCMSG 

STAT 

SCOPE 

STCOMB: ADD 12.16) 

RTI 

:EMT SUB TO STOP ALL DECThPES 

§ i PDT : QIC »ii6,3TCCM 

RTI 


COMND ; CLEAR PREVIOUS COMMAND 

UNIT, COMND ; UNIT « TO COMND. 

3(6) .COMND -SET DESIRED COMMAND IN COMND. 

C0MN0.3TCCM : ISSUE COMMAND. 

•BIT1§!8IT7,2TCC!®! :READY AND ERROR SIT CLEAR" 


• 2 , ( 6 ) 


•116.3TCCM 


• » 1 m § W * A « WH WWW • 

:EMT SUB TO CHECK FOR DECT APE ER$0R OR END 20NE 


i-t i • * wny i nny wt u v wa * www .»». 

•BR IF YES 

iwAS THE DO BIT SET IN COMND” 

;8R IF NOT. 

: SAVE STATUS. 

; ERROR. DO BIT FAILED TO CAUSE CLEARING 

; OF READY AND/OR ERROR BIT(S). OR IL0 X 
; BLOCK MISS, OR DATA MISS ERROR CCCURAeI 


;SET UP RETURN. 

; EXIT STCOM SUB. 

: ISSUE SAT COMMAND. 
:EXIT EMT SUB. 


CKER2: SAVES 

TST 3TCCM : ERROR 

BMI CKER2C :BR IF 

TST (5)+ ; NO. SE 

CKER2A: TST (5)+ 

CKER2B: RST5S 

CLR ALLPAR -.CLEAR 

RTI ;EXIT E 

CKER2C: TST 3TCST ;END2 S 

BMI CKER2A :9R IF 

TST ALLPAR ; PARITY 

BEO CKERZD ; PARITY 

BIT IBIT14.2TCST ; PARITY 

BNE CKER2A-2 :BR IF 

CKERZD: STATUS 

ERRORN CTAP 

FPCMSG 

DTERR 

STAT 

BLKSB 

-1 

BR CKER2B 

:EMT SUB TO HANDLE FAILURE TO INTERRUPT 
ftOINTR: SAVES 

STATUS ; SAVE S 

ERRORN ;DECTAP 


: ERROR BIT SET’ 

:BR IF YES. 

; NO. SET UP OK EXIT. 


-.CLEAR PARITY ERR ALLOWED INDICATOR. 
;EXIT EMT SUB. 

;ENDZ BIT SET’ 

:BR IF YES. 

; PARITY ERR ALLOWED’ 

; PARITY ERR NOT ALLOWED. 

; PARITY ERR SET’ 

;BR IF YES. 

CTAPE ERROR. 


; SAVE STATUS. 
jDECTAPE FAIL 


INTERRUPT. 


TC4 - TC11 TEST 
02TC0C.P11 


1021 

1022 

1023 

102? 

! 0|8 

iBId 

jp 

1034 

1035 

1036 


j04| 

:Si4 

1055 

1055 

105? 

IQ59 

1059 
1 050 
1061 

lop 

1064 

loti 

lose 

1069 

1070 

1071 

1072 


m 

iUt & 

1076 


OolP 

003556 

003600 


01120 ? 
010665 
Q 10634 
177777 


ooeooo 

eeei 

000000 

300000 

ooeooo 

OOOOQO 

000 

000 
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FPCMSG 

INTFAI 

STAT 

lk ss 

:EMT SUB TO CHE( 
8aTRNT : OPEN 


102 


K EXPECTED DATA 


ERRCTR: 
WRDCNT : 
BEXPDT: 
EXPDAT: 
SACTDT: 
ACTDAT : 
GRIND A: 
GRINDS : 


OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

.BYTE 

.BYTE 


103? 

QQ36Q6 

11276? 

17777? 

177770 

ADATCI: MOVB 

1038 

883614 

000402 



SR 

1039 

003616 

10S06? 

177762 


ADATCK: CLRB 

104Q 

003622 

112767 

17777? 

177755 

MOVB 

1041 

QQ3&30 

000410 



BR 

1042 


11276? 

177777 

177744 

DTCRI: MOVB 

1043 

m 

000402 



BR 

1044 

QQ3&H2 

10S06? 

177736 


DATCK: CLRB 

1045 

QQ3&H& 

10506? 

177733 


CLRB 

1046 

003652 

104006 



DATCRK: SAVQ5S 


§5*72 

003676 

003712 

OOafll 

m 

003744 

003^ 

853774 

g§« 

m 

854012 

004020 

004024 


012500 

012501 

m 

812502 
012503 
812567 
312767 
016767 
00506? 
00506? 
01106? 
Si 1167 
105767 
001412 
111267 
111367 
04276? 
042767 
826767 
001004 
026767 
881450 
104013 
003566 
Sll522 
000004 
006167 
586167 
006067 


7 177721 


177674 

000001 

175176 

177656 

177656 

177650 

177650 

17764? 

177630 

177630 

177774 

177774 

177606 


177662 

177656 


DATCRA: 


OATCRB: 


177616 

177614 

177610 


177574 177576 


DATCRC: 


DATCRD: 


177556 

177550 

177546 


MOV 

MOV 

TSTB 

BEQ 

MOV 


MOV 

CLR 

CwR 

MOV 

MOV 

TSTB 

BEG 

MQVB 

MOVB 

BIC 

m 

BNE 

CMP 

BEQ 

BDCNV 

DATKNT 

AWDCNT 

4 

ROL 

ROl 

ROR 


OPEN 


*-i. CRINDA 

ADAiCK+4 

CRINDA 

•-1.CKINDB 

DATCRR 

•-1. CRINDA 

DATdR+4 

CRINOA 

GRINDS 

(5)+,R0 

(5)+.Rl 

CKIN0B 

DATCRA 

(SH.R2 

(5)+,R3 

(5 H WRDCNT 

•I. DATKNT 

ERAlIM, ERRCTR 

BEXPDT 

BACTDT 

(0) , EXPDAT 

(1) . ACTDAT 
CKifoB 
DATCRC 

(2) , BEXPDT 

(3) ! BACTDT 
•17^774, BEXPDT 
•177774. BACT5T 
EXPDAT, ACTDAT 
DATCRD 

BEXPDT. BACTDT 

Batcke 


EXPDAT 

BEXPDT 

EXPDAT 


:EXIT EMT SUB. 

AGAINST ACTUAL DATA AND REPORT ERRORS. 
; CURRENT WORD NUMBER. 

: ERROR COUNTER. 

:* OF WORDS TO CHECK. 


; INCR/DECR INDICATOR. 

; 16/18 BIT DATA INDICATOR 
: INDICATE DECREMENT OF ACT DATA. 

; INDICATE INCREMENT OF ACT DATA. 
; INDICATE 18 BIT DATA CHECK. 

; INDICATE DECREMENT OF ACT DATA. 

; INDICATE INCREMENT OF ACT DATA. 
.•INDICATE 16 BIT DATA CHECK. 

;GET EXP DATA ADDR. 

: GET ACT DATA ADDR. 

; 16 OR 18 BIT DATA’ 

BR IF 16 BIT DATA. 

: GET BEXP DATA ADDR. 

;GET BACT DATA ADDR. 

; GET « OF WORDS TO CHECK. 

; SET CURRENT WORD * TO I. 

;ERR LIMIT TO ERROR COUNTER. 


GET EXP DATA WORD. 

GET ACT DATA WORD. 

16 OR 18 BIT DATA’ 

BR IF 16 BIT DATA. 

GET BEXP DATA BYTE. 

GET BACT DATA BYT!. 

ISOLATE 2 LSD IN BEXPDT AND 
BACTDT. 

COMPARE ACT DATA AND EXP DATA. 

BR IF NOT SAME. 

SAME. COMPARE BACT AND BEXP DATA. 

BR IF SAME 

DATA NOT SAME. CONVERT WORD » TO DECIMAL ASCII 


; SET UP DATA FOR CONVERSION AND TYPEOUT. 


1 


TC4 - TCI 1 TEST 4 
D2TCDC.P11 


8 


004030 

004034 

004040 

004044 

004046 

004050 

004052 

004054 

004055 

004050 

004052 

004054 

004055 

004070 


004075 

004100 


004105 
0041 10 
004112 
004114 
004115 
004122 
004124 
004130 
004134 
004135 
004142 
004144 
004145 
004150 
004152 
004155 
004150 
004152 

m 

004172 

004174 

004175 

004200 

004202 

004204 

004205 

004210 

004212 

004214 
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JOE 


005157 

005157 

005057 

K 

011035 

000001 

003^5 

011035 

0Q0Q05 

104012 

003500 

011051 

000001 

104012 

003502 

Qiigsg 

000005 

104011 

011207 

010715 

011002 

177777 

005357 

001423 

005257 

105757 

001405 

l3S787 

001401 

122243 

022041 

000405 

105757 

001401 

122223 

022021 

005367 

001250 

104007 

000002 

104005 

012500 

012501 

005020 

005301 

001375 

104007 

000002 

104008 

012500 

012501 

104044 


177548 

177540 

177538 


177448 

177436 

177450 

177443 


177427 

177402 


ROL 

ROL 

ROR 

OACNV 

BEXPDT 

ADATSB 

1 

OACNV 
EXPDAT 
ADATSB* 1 
5 

OACNV 

SACTDT 

ADATWS 

1 

OACNV 

ACTDAT 

ADATWS+1 

ERRORN 
FPCMSG 
BLKSB 
DATERR 
-1 


ACTDAT 

SACTDT 

ACTDAT 


DATCKF: 

DATCKG: 

DATCKH: 


BEQ 
CMPB 
CMP 
3R 
TSTB 
BEQ 
CMPB 
CMP 
DEC 
BNE 

RST05S 
RTI 


.+4 

C2H,-(3) 

(OH.-U) 

DATCKG 

CKINDB 

.+4 

(2)+,C3)+ 

(0) + .a) + 

WRQCNl 

DATCKf 


; CONVERT BEXP DATA TO ASCII 


; CONVERT EXP DATA TO ASCII. 


; CONVERT BACT DATA TO ASCII, 


; CONVERT ACT DATA TO ASCII. 


; TYPE DATA ERROR MESSAGE. 


DEC 

ERRCTR 

;NTH ERROR’ 

BEG 

DATCKH 

; BR IF YES. 

DATCKE: INC 

DATKNT 

; INCREMENT WORD ft 

TSTB 

CKINDA 

; INCR/DECR’ 

BEG 

DATCKF 

;SR TO INCR. 

TSTB 

CKINDB 



: INCR-DECR DATA ADDRESSES. 


; INCR-INCR DATA ADDRESSES. 


:EMT SUB TO CLEAR SPECIFIED AREA TO Q’S 
h cctt- SAV05S 

MOV (5)+,R0 
(5)+,Rl 
(OH 
R1 
.-4 


;DCNE CHECKING’ 
•BR IF NOT. 

; DONE . 

; EXIT. 


MOV 

CLR 

DEC 


,*'! TfiDC. 

; GET STARTING ADDR. 
: GET COUNT. 

•CLEAR WORD. 

DONE’ 

BR IF NOT DONE. 
DONE 
•EXIT 

:EMT SUB”t6 FILL AREA WITH BINARY COUNT PATTERN. 
&INFLL: SAV05S 

MOV (5H.R0 : GET STARTING ADDR. 

MOV (5H.R1 ;GET COUNT. 

BINFLA: GETBN1 ;GET BINARY WORD. 


Sfn 

RTI 


T C4 - TC11 TEST 4 
OZTCDCin 


1133 
II 



ill 

HI 

ill 
11 ! 

jjkl 

ill 

11SB 

1167 

iiH 

1170 

1171 
1178 

1173 

1174 

1175 

1176 

1177 

li?S 

|j 80 
1184 

HP 

use 


*340 

*342 


004344 

004350 

004352 

004360 

004366 

004374 

004402 

004410 

004412 

004420 

004422 

004424 

004426 

004432 

004434 

004436 

004440 

004444 


w 

I04gl 

m 

m 

010733 

010602 

m 

104000 

g6777 

0Q1414 

104012 

001072 

0107 71 

000006 

104011 

011207 

010747 

010763 

010617 

010602 

177777 

104000 

000004 

000002 


105067 

000403 

112767 

012777 

^2767 

032777 

001003 

042767 

104020 

000103 

000402 

005277 

104400 

104024 

104000 

012716 

000002 
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KOE 


000000 
675 


l f t i C 


BINFLB: 


OPEN 

MOV 

$ 


BINFLB, (Q)+ 

b}nfla 


M 

RST05S 
RTI 

;£MT SUB TO CHECK THAT WORD COUNtls'C), AND THAT TCBA CONTENTS 
MATCH THE EXPECTED CONTENTS. 


BINARY WORD IS STORED HERE. 
STORE WORD. 

DONE’ 

BR IF NOT DONE. 

DONE. 

EXIT. 


174620 

174500 


iwCBA: 


174566 1745C4 CWCBB: 


CWCBC: 


SAV5S 

MOV 

STATUS 

TST 

BEG 

ERRORN 

FPCMSG 

WCNOTO 

CTCWC 

CTCBA 

-1 

SCOPE 
CMP 
BEQ 
GACNV 
TEMP 
At DBAS 
6 

ERRORN 

FPCMSG 

INCTCB 

TCBASB 

CTCBA 

CTCWC 

-1 

SCOPE 
RSTSS 
RTI 


(5)+, TEMP 

3TCWC 

CWCBB 


GET EXPECTED TCBA CONTENTS. 
SAVE TCWC AND TCBA. 

WORD COUNT 0’ 

BR IF 0 (OK). 

WORD COUNT NOT 0. TYPE 
CONTENTS OF TCWC AND TCBA. 


TEMP.2TCBA 

cwcsi 


TCBA AND EXPECTED TCBA SAME’ 

BR IF YES (OK). 

NO. CONVERT EXPECTED TCBA TO ASCII, 


;TC8A DOES NOT MATCH EXPECTED 
;TCBA CONTENTS. TYPE EXPECTED TCBA, 
; ACTUAL TCBA. AND TCWC. 


;EMT SUBS TO SEARCH FOR DESIRED IlOCK* NUMBER. SRCHFF GETS FORWARD 
aOCK NUMBERS. SRCHRR GETS REVERSE BLOCK NUMBERS. 


000315 

177777 

004440 

000005 

004000 

004000 


000305 

174430 

000270 

000020 

174376 


004000 000002 


174354 


$RCHFF: CLRB 
BR 

SRCHRR: MOVB 
SRCHA: MOV 

• MOVB 
BIS 
BIT 
BNE 
BIC 

SRCHAA: SETCOM 
SRCHM: RNUM! IE! DO 


DIRIND 
SRCHA 
»-l. DIRIND 
•SR6HC.3TCVTR 

•s.rev£nt 

•REV, SRCHM 
•REv’aTCCM 
SRCHAA 
•REV. SRCHM 


0C4446 


SRCCON: 

SRCHB: 


SRCHC: 


BR 
INC 
DELAY 
NOINT 
SCOPE 
MOV 
RTI 


SRCHB 

3TCCM 


•SRCHD. (6) 


SET FORWARD INDICATOR. 

SET REVERSE INDICATOR. 

SET INTERRUPT VECTOR TO SRCHC. 
SET MAX • OF REVERSALS ALLOWED. 
SET REV BIT IN SRCHM. 

REV BIT SET IN TCCM’ 

BR IF YES. 

NO. CLEAR REV BIT FROM SRCHM. 
START SEARCH. 


; ISSUE DO TO ENABLE RNUM. 
TIME OUT INTERRUPT. 

; FAILURE TO INTERRUPT. 

;HERE WHEN INTERRUPT OCCURS. 
•EXIT TO SRCHD. 



TCH - TCli TEST 4 
OZTCDC.Pll 
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L02 


1189 

1190 
11 
II 
11 

1194 

1195 
11 % 
1197 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
iar 
121 

1214 

1215 
121 
121 



004446 
004450 
14454 
4456 
460 
004462 
004464 
004472 
004474 
004476 
004504 
004506 
004514 
004522 
004524 
004526 
004534 
004536 
004544 
004552 
004554 
004556 
004564 


022626 

005777 

m 

104000 
000451 
$7767 
$1431 
003014 
032777 
$1750 
777 
<7h7 
101435 
000740 
032777 
001334 
162777 
$6777 
003425 
$0724 
032777 
001004 
105767 



174332 


000073 

000063 

004000 

004000 

004000 

000024 


005067 

174106 

174102 

000066 

174070 

174066 

174062 


SRCHD: 


P0PSP2 

TST 

?KkRRZ 

SCOPE 


174324 

174366 

SRCHDA: 

CMP 

BEQ 

BGT 

004000 

174302 


BIT 

BEQ 

0Q0QQ3 

174274 

174300 


ADD 

174336 


CMP 

BLOS 

BR 

004000 

174252 

SRCHE: 

BIT 

BNE 

000003 

174250 


SUB 

174310 

174242 


CMP 

BLE 

BR 

004000 

174222 

SRCF: 

BIT 


174172 

174162 

174152 


SRCHG: 


SRCREV: 

SRCRVA: 

SRCRVB: 

SRCRVC: 


REVCNT: 

DIRIND: 


BNE 

TSTB 

BNE 

RTI 

TSTB 

BEG 

RTI 

BIT 

BEQ 

BIC 

BR 

BIS 

DECB 

BNE 

STATUS 

SAVSS 

ERRORN 

FPCHSG 

BLKSB 

SRCHER 

STAT 

icoPE 

.BYTE 

.BYTE 


3TCCM 

SRCHDA 


SRCREV 

3TCDT,BLKRQ 

SRCF 

SRCHE 

•BITll.STCCfl 

SRCCON 

3?0DrBLKRG 

SRCRVA 

SRCCON 

IBIT11,3TCCM 

SRCCON 

•3. 3TCDT 

BL^RG.STCDT 

SRCRV& 

SRCCON 

tBITll,3TCCM 

SRCHG 

DIRIND 

SRCCON 

DIRIND 

SRCCON 

•BIT11.3TCCM 

SRCRVB 

•BITli,3TCCM 

SRCRVC 

i3ITll,3TCCM 

REVCNT 

SRCCON 


OPEN 

OPEN 


RESTORE STACK. 

ERROR BIT SET’ 

?he£k f8r’error/endz. 

ERROR RETURN. SCOPE. 

BlK. 

BR IF BLK FOUND. 

BR IF TCDT HIGH. 

TCDT LOW. CHECK DIRECTION. 

BR IF GOING FWD. CONTINUE SAME DIRECTION. 
ADD 3 TO TCDT. 

LOWER BY 3 OR MORE? 

GO REVERSE IF LOWER BY 3 OR MORE. 

NOT LOW ENOUGH. CONTINUE SAME DIRECTION. 
TCDT HIGH. CHECK DIRECTION. 

BR IF IN REVERSE. CONTINUE DIRECTION. 
SUBTRACT 3 FROM TCOT. 

HIGHER BY 3 OR MORE? 

GO REVERSE IF HIGHER BY 3 OR MORE. 

NOT HIGH ENOUGH. CONTINUE DIRECTION. 

TCOT EQUAL. CHECK DIRECTION. 

RR TP TN RFVPRCp 

GOING FORWARD. FWD 8LK« WANTED 7 
BR IF FWD SLKt NOT WANTED. 

EXIT EMT SUB. 

GOING REV. REV BLKt WANTED 7 
BR IF REV BLKI NOT WANTED. 

REV BLK* WANTED. EXIT. 

REV BIT SET’ 

BR IF NOT. 

IN REVERSE. SET TO FORWARD. 


; FORWARD. SET TO REVERSE. 
jFIFTH REVERSAL ISSUED 7 
;BR IF NOT. 

•YES. ERROR. SAVE STATUS, 

;BLK* NOT FOUND WITHIN 5 TAPE 
; REVERSALS. 


000072 

000072 

000050 


EMT SUBS TO WDATA. RDATA a FORWARD OR REVERSE. 


^ * • i m 

&RDFR: 

WRDFRN: 


MOV 
SAV5S 
MOV 
MOV 
ASL 
NEG 
MOV 
ADD 


i i n# iwmn A • 

15667, WRD^RZ 

(5H.3TCWC 

3TCW6.WRDFRG 

WRDFRi 

3TCWC 

(5)+.3TCBA 

3TCB6.WRDFRG 


;GET WORD COUNT AND SET IN TCWC 
•2CW0RD COUNT) TO WRDFRG. 

; IN 2’S COMPLEMENT FORM. 

SET ADDR IN TCBA. 

; 2 i WORD COUNT )+TCBA=FINAL TCBA CONTENTS. 















NO 
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TCDC.P11 
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N02 


QOS204 1 73 fcOO 


CUALLC: MOVB 
MOV 
TST 
BPL 

CKERRZ 

SCOPE 

NOP 

CWALLD: DEC 
BEQ 
RTI 

CWALLE: BIC 
IS: BIT 

BEQ 

CWALLF : P0PSP2 
P0PSP2 
RST05S 
RTI 


(2)^,3TCST 
(D + .3TCDT 
3TCCI 5 ! 
CWALLD 


RO 

CWALLE 

•IE, SITCOM 

*1060,fTCST 

IS 


;HERE ON INTERRUPT. LOAD EXTENDED DATA BITS IN TC 

LOAD DATA IN TCDT 
fRROR BIT SET’ 

BR IF NO ERROR. 

GO CHECK ON ERROR. 

•ERROR RETURN. 

ENOZ RETURN. 

ALL TRANSFERS DONE’ 

BR IF YES. 

NO. EXIT INTERRUPT 
DISABLE INTERRUPT. 

•WAIT FOR DATA MISS. 

; REsI CRE°sf ACKtO STATE BEFORE DELAY. 

; RESTORE REGS. 

•EXIT WALL SUBROUTINE 




TCH - TCI I TEST 4 
OZTCDC.Pil 






• jSs 
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OgHiQ? 

1 C 4025 

173454 

173452 


{finis 


000032 


005350 173450 


173355 


READ ALL Sli 
CALL: RALL 


rosmd or 


000055 PALLFF : TfgV 

000040 RAllRR: MOV 
000020 MOV 

CRALl: SAV 05 S 

CLR 
CLR 

MOV 

CRALL A: OPEN 
173450 MOV 

SETOOM 
CRAILB: OPEN^ 

CRAkLC : pvs 

CRALLD: pC 

1-3355 CRALLE: HOVfi 
CRALLF: P 0 PSP 2 





>J* REVERSE 


DATA ADOR. 


tRALUFlC! IE! DC. CRAILB ; SETUP READ ALL FORWARD. 
ISRCHF t CRhLLW 


I 

^ t jg 1 0< 

2TCWC 

fst^VRo 

•CRALLC. STOVTR 




ba 

nO 

CRALLE 

•RNUM.2TCCM 


, CRALL 8 : SETUP READ ALl REvER 






R TO R 2 . 

TOR TO ORAL 
LLR 


INTERRUPT. 


REsTwRE REjj«. 

EXIT RALi. SUBROUTINE 



«« 
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C03 




: SUBROUTINE TO CALCULATE FORWARD CHECKSUM FOR ESS WORO DATA BLCCk 


! 




1^3 

142t> 


;4io 

1412 



§00 004., Bf 






cilrlr 


173444 

173442 


002154 








|> 173170 

4 022222 

& 


Parity: sav03 

clr 

CLR 

MOV 

MOV 

MOV 

PARTYA: MOV 
JSR 

I 

|sfo3 

Bit 

XPARTY: SWAB 
PARTYB: A5L 


35881° 

:7222s 222224 


. * T | N 

ASRE: : gsS N 

ASR2: ASR 

aiTCOfl: MOV 

MOV 


ASR2 : 


•Isfcl/ARCTR 

(Q1+.R40RD 

PWORi.Rl 
^2 5 ♦ , «3 

1 

R1 

•lrrroc^LPB 

W?PARCTR 


ft 00 

PARCTfi 


ri 

R1 

Ri 

Ri 

Rl 

nl 

LgB . LPBY 

lpb.lpbz 


:usIFIEDi 

R5, PARITY {CALL TO PARITY SUBROUTINE 

;AODR OF DATA STRUNG 

;ADDR OF EXTENDED DATA STRING. 

: CLEAR CHECKSUM WORDS. 


RING ADDR TO RO. 

D DATA STRING ADDR 


TO R2. 


iSMmTO F0R 25& u2s:s - 

;EX?EnSeD 1 6aTA BYTE TO R3. 


; PREPARE TO COMPUTE PARITY ON & MOST SIGNIFi: 
sBZTS. INCLUDES EXTENDED SITS IS AND 17. 


; PREP A^ U cIn TER i & > 81 TS FOR c hRI t y 


%r'W'S « <M> i “ AW I 


GO COMPUTE PARITY 
PfepAREJ^LEAST SIGNIGIOAV 

GO COMPliff PARITY. 
OCNE^SMIMES’ 


m fossy wr bits a 


;EXIT. 

{ENTRY TO SHIFT RIGHT & REG 1 SUB, 
{ENTRY TO SHIFT RIGHT 4 REG 1 SUB 


{EXIT SHIFT RIGHT SUB. 

{SUBROUTINE TO COMPUTE S SIT PARI' 


5 FOR fas; 


I 
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D03 


1414 

1415 
141S 
141? 

’4ii 

:h|c 

Ih|h 

1425 

1425 

1427 

14=8 

1429 

1430 

1431 


1434 

1435 
1435 
1437 

1H3S 


144Q 

1441 

1442 

1443 


iTTT 

1445 

1*445 

144? 

1448 








I24||g 





14 bI 

1452 

1454 






iifelr 




*rvn* m z 


SSCQGfe 


3$ 


l”???? 000102 

000312 

173010 172755 


m . 

LPBY; OPEN 
LPB2: OPEN 

; SUBROUTINE TO PE! 
: SUBROUTINE CALI: 


\SSm 

RJ.LPSZ 

tfetf! 

PC 


TO PERFORM CONPLENENT OBVERSE ON ORTA SPECIFIED. 

CALL : JSR R5 . 38 VERS • CALL T 0 5U8RQU T I N£ 

AODR jADDR OF DATA STRING 

EADR ;«qggOF EXTENDED DATA JT 

COUNT ; NUMBER OF WORDS TO FRCCE 


000005 000075 CSvA: 


i* n% i a • 
% 8 * G • 


ROL 

RCLB 

nWi * 

ROL 

ROLB 


C* Q 




NOV 

(53+.RC 

; GET ADDR OF DATA STRJNG 

NOV 

i$N.RJ 

iADDR OF EXTENDED DATA T 

NOV 

(5)+ CBVCNT 

; COUNT TO OBVCNT 

NOV 

NOV 

.,0|VCTR 

;DATA WORD TO R2 

N0V8 


; EXTENDED DATA BYTE TC R 

CON 

Rl 


CON 

R3 


CLR 

(2> 

: clear destination word. 

CLR8 

a) 

ROR 



ip 



ROR 

R3 


ROR 

ROR 

R2 

R2 


m 

Rl 



cbvctr 

R1 

OBVCNT 

m a 


: UPDATE DATA ADDRESSES. 


; DONE’ 

;BR IF NOT. 

:EXIT 


$r m m «* m- 

IS RUFBKfl 


BR RuFBkA 

ROUTINE TO WRITE'DATA, READ DATA. 2 BLOCKS. BINARY COUNT. 
KB: NOV I-1 a RwFInD : SET 2 BLOCK INDICATOR. 


UDATAF 


PC.sINFLC 

BLKNUN.BLKRO 


: BIN FILL 255 WORD WRITE BUFFER 0. 
;CALL UDATAF SUB TO WRITE FWD 255. 


mxi 


TC4 - TCI I 
KTCDC.PIl 


11 T£S 


O’ 11 


m 

1471 

1472 

1473 

1474 

1475 




1484 SI 










S ' - 

M 

7 QQ0CH3 


SKI 







l 




GC01&& 


177214 






177375 


irnntt 
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UBUFC 

ROATAR 

RBUFO 

datck: 

UBUFC 

ggyrS^sio. 

W 

!i PC.flNFLl 
INC BLK'RQ 
W0ATAF 

Eh. 

MBUF1 
ROATAR 
2|E . , 

DATCKI 

UBUF1 

RiUFl+510. 

RUFBkE: RTS PC 
RwFIND: OPEN 

iff jmm-" 

SETW8R: MOV i-ljETIND 

SETW8A: JSR RS.MRITY 


07555 


m 


2h jjjL 

005020 


EW8UF0 

MOV 

MOVB 

Wi 

MOV 

M0V8 

MOV 

MOV 

MOV 

MOV 

INC 

m 

WRBUQ 

EWRBKO 

1 

JSR 

URBLK1 

EWRBK1 




kiP$HF?iu 

BLKRi.UFBLKO 

BLKRQ.WFBLK1 

BLKRQ.WRBLk'O 

BLKRQ.URBLKi 

WFBLKl 

WRBLKi 

RS.OBVERS 


R5.0BVER5 


SET I NO 
S T WBE 


; STARTING AT AOOR WBUFO 


ALL ROATAR SUB TO READ REV 555. LORO: 
TARTING AT ADDR RBUFO 


;CALL DATCKI TO CHECK DATA STORED AT 
•UBUfO AGAINST DATA STORED AT R8UFC+51Q. 


CCK • OF WORDS SPECIFIED. REPORT ERROR 
; actual 6ata IS CHECKED IN DESCENDING ORDER. 


[NG^BlOCK ONLY’ 


■5 


•NO. DOURi. BIN FILL WBUF1. 


•CALL WDATAF SUB TO WRITE FWD 255. WORDS 
.•STAR 


5ting at 


;CALL ROATAR SUB T 
: STARTING AT AOOR RBUFl 


R W8UF1 

0 READ REV 255. WORDS 


.•CALL DATCKI TO CHECK DATA STORED AT 
: WSUF 1 AGAINST DATA STORED AT RBUFi+SiC. 

:CHECK i OF WORDS SPECIFIED. REPORT ERRCRi 
; ACTUAL 5ATA IS CHECKED IN DESCENDING ORDER. 


JFFER ( S ' TO MATCH DATA EXPECTED 
; SET FUC INDICATOR. 


; SET REV INDICATOR. 

; COMPUTE PARITY FOR WSLFD. 


; MOVE PARITY TO FUC CHECKSUM IN w2» c D. 
s COMPETE PARITY FOR WBUFl. 


; MOVE PARITY TO FWD ChECkSU m IN W3LF; 


: BET UP FORWARD AND REVERSE 2.00k Nl m SER: 
:IN WRITE BUFFERS. 


; REVERSE SET UP" 
:SP IF NOT. 
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1 



F03 


RS.OBvERS 


; REVERSE SET UP. COMPLEMENT CB.'EPSE 
; ENT IRE WRITE SUFFER. 


IetTn6: . 

‘L.RRSF: T :t 


0-* 


;EXIT. 


TO CLEAR ENTIRE REAL BUFFER. 
:AR 


BINFlQ: CLEAR 
AW8UF0 

Bk 

BINFLl: 


PC 


PC 


_ - '1 

133. 

iu8fi « it 

1AU: J5R R5.REVIRS 


ADR 
BADR 

• r NT 

ftEvERS: SAVC3 
MOV 
MOV 
MOV 
DEC 
MOV 
AIL 


RVERSA: MOV 
MOV 
MOV 
MOV 
MOVB 
MOVE 


v O 


C 5 1 ♦ . RO 

(5)+, R2 
R2 

R2.R3 

R2 

on o? 

RLR3 

(SKrvrsa 

(2) .RVRSB 
RVRbA, if) 
RVRSB. CO)* 
(V JgvPSA 
S 3 1 , BRVRSB 
BRvRSA.t'3) 


; CLEAR ENTIRE WBUFD. 

; CLEAR EXTENDED W8UFD. 

; FILL WRITE BUFFER D WITH BINARY 


■*r 

* * * • * 


;vwcAR ENTIRE WBUF1. 

; CLEAR EXTENDED WBUF1. 

; FILL WRITE BUFFER 1 WITH BINAR': 


f w0* » * * 


AT A STRINGS. 1ST STRING IS A WCRD STAG- 
INGS MUST HAVE SAM - 

CALL REVERf 


SAME NUMBER CF E-EMEN' 


. WORD STRING. 

R OF BYTE STRING. 

NUMBER OF ELEMENTS TO REVERSE. 

WORD STRING ADDR TO R2. 

BYTE STRING ADDR TO Rl. 

COUNT TO R2. 

DECREMENT R2 BY 1 TO FIGURE ADDR D* 
ELEMENT FOR BOTH STRINGS. 

ADDR OF END DATA WORD IN RS. 

ADDR OF END DATA BYTE IN R3. 




i 


Iff 



I 
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G03 


000015 


oSSSfg 


C0BB34 172252 


nno 

«-^ w 


nnu 
%#%# * 
n*4P 

W i W 


000022 


MUVB 
TST 
T5T8 
CMP 
BHI 
RST03 
RTS 

RVRSA: 

BRVRSA: . 3YTE 

BRVRSB: .BYTE 

RVRS8: OPEN 

•OM i SUB TO SELECT SEQUENTIAL DEC TAPE UNIT. 

TNC SQDRVA 

81 C « 1 77770, SQDRVA 

SELDRV 

SQDRVA: OPEN ; DESIRED UNIT Ni 

BR SGDRV ;UNlt NOT AVAIL: 

RTI :UNIT SELECTS 

:EMT SUB TO SELECT DECTAPE UNIT SPECIFIED. 

SELDRR: SAV05S 


BRVRSB, CD* 

-i2> 

R5 

OPEN 

OPEN 


; COMPLETE DATA ADDR UPDATE. 

;R2 LARGER THAN RQ’ 

;BR IF YES. REVERSAL NOT COMPLETE, 
; YES. DONE. 

; EXIT . 


;R. 

LE^RETURN. 


MOV 

BITS 

MOV ' 

MOVB 

TST 

SELDRA: R§TQ5S 
RTI 

UNTAB: .3'iTE 


;5H.R0 

UNTAa(Q),UNr 

SELDRA 

RC.UNITN 

RC.UNIT+i 

(S <♦ 


NUMBER OF UNIT TO BE SELECTED. 
IF UNIT AVAILABLE FOR TESTING. 
IF UNIT NOT AVAILABLE. 

VAI . SELECT UNIT. 



: SET UP SELECTED EXIT. 


; EXIT. 

BITC.3I T 1. SITS, b!’3.SIT4. SITS. 21 TS.BI 


i •* 


1 


i 


<f»£r*fT'cr'cfMr'c»^cncr'cr<ncf»cr»cf*fncr’CT»cncr*tPCPcrHf»€ra'cr€r*fr*crcrcmPcr»a , cmrcrcf'i/»c/ , crfr»cr‘cr»frcncr*CF*trcfcr€r* rv 
*t*crHr»cf»tmmmmrummmn(iu s a: jr. a. c 4 : m ^locjcuc^cucuaiaitijcufurururupifururururu^^ o 

ti»rii»-Dii)tD^mnxuiruMD i 0tri-HrHn.i:curuMOi0roNtriii4u>ru*-D l i}coNcraixu)fUMDa>to^m'c;u;airu r> 


TEST 
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H03 


881122 ffiBgj 

006650 000013 
COSE 52 006654 


00665* 

006660 

BB» 

GC6j|?6 

006706 

006710 

00671c 

006714 

006716 

00572C 

006722 

006724 

®5!S 

006732 


006734 

006740 

006746 

Cg|7|| 

plrlfc 

oJooo 


004767 

016767 

004767 

104047 

§13344 

016434 

104041 

011276 

013346 

015411 

0164^5 

00C40C 

104000 

000001 

007004 

000012 

006734 


004567 

016767 

004767 

004767 

013344 

016434 

104042 

011276 

014344 

M 

000402 

l n^nm 

*y * ** W 


' 0: ?: ! Mf [MBtVihe : 

10. ; TEST ITERATION COUNT * 

CA SCOPE ENTRY POINT * 

***#**#****^*********t##*#*#*#**####t######«****#******t ************** 

RALl FORWARD TEST. SINGLE BLOCK. BINARY COUNT. 

TEST SEQUENCE: 1. WDATA FWD 1 BLOCK. 

2. RDATA REV 1 BLOCK. VERIFY DATA. 

3. RALL FWD 258 WORDS. VERIFY DATA INCLUDING REVERSE 
AND FORWARD CHECKSUMS. 

A: JSR PC.RWFBK1 ; WRITE /READ SINGLE BLOCK. 

MOV BLKNUM.BLKRG 

JSR PC.SETWBF ;SET UP WRITE SUFFER . C WD. 

JSR PC.CLRRBF ; CLEAR READ BUFFERS. 

RALLF ;READ ALL FWD 258. WORDS INTO 

258. ;ADDR RRCKSO AND UP. EXTENDED DATA BITS 

RRCKSQ ;ARE STORED IN CONSECUTIVE BYTES STARTING 

ERRCKO ;AT ADDRESS ERRCKO . 

ADTCK ;CALL ADTCK SUB TO CHECK IS BIT DATA START] 

WBUFO ;AT ADDR WBUFO AND EW8UF0 . AGAINST 18 BIT 

RBUFC ; STARTING AT ADDR RBUFO An5 ERBUFQ . FIFTH 

E WBUFO -REPRESENTS I OF 18 BIT ELEMENTS TC CHECK. 

ERBUFO ; REPORT ERRORS. 

2S6. 

SCOPE 


177174 {A: 

JSR 

n» 1 vnwn 

PC.RWFBK1 

172224 172172 

MOV 

BLKNUM.BLKRG 

177302 

JSR 

PC.SETWBF 

177472 

JSR 

PC.CLRRBF 


DhTh 

ARGUME: 


177114 

172144 

177230 

177412 


SCOPE : SCOPE. 

tl: 1 ; ROUTINE NUMBER 1 * 

T2 ; ADDRESS OF NEXT ROUTINE * 

IQ. ; TEST ITERATION COUNT * 

DA ; SCOPE ENTRY POINT * 

;RALL REV TEST. SINGLE BLOCK. BINARY COUNT. 

; TEST SEQUENCE: 1. WDATA FWD 1 BLOCK. 

; 2. RDATA REV 1 BLOCK. VERIFY DATA. 

; 3. COMPLEMENT OBVERSE WRITE BUFFER. 

: 4. RALL REV 259 WORDS. VERIFY DATA. 


JSR 

MOV 

flfi 

RALLR 

258. 

RRCKSO 

ERRCKO 

ADTCK I 

WBUFO 

FRCKSO-2 

E WBUFO 

ERFCKO-1 

256. 

SCOPE 


R5.RWF8K1 
BLKNUM.BLKRO 
PC.SETWBR 
PC , CLRRBF 


; WRITE/READ SINGLE BLOCK ( SEQUENCE 1 AND S'. 

;SET UP WRITE BUFFER REV. 

; CLEAR READ BUFFERS. 

:READ ALL REV 258. WORDS INTO 
;ADDR RRCKSO AND UP. EXTENDED DATA BITS ARE 
: STORED IN CONSECUTIVE BYTES STARTING 
;AT ADDRESS ERRCKO . 

; CALL ADTCK I SUB TO CHECK 18 BIT DATA START] 
: AT ADDR W8UF0 AND EW8UF0 . AGAINST 13 BIT I 
; STARTING AT ADDR ^RCKSO-2 AND ERFCi 
: IS CHECKED IN DESCENDING ORDER. FIFTH ARGU? 

: REPRESENTS « OF 13 SIT ELEMENTS TC 
; REPORT ERRORS. 


DATA 

KC-1 

mc*.- 


CZTCDC 


is64 

1665 

ill? 

ill 


« # m 
*0*' if 

|0 

ilal 

PI 

ill 

ill§ 

itf 

1698 

1698 

1700 

H8 


II HI 

007012 007014 




SBfiB l 

s&!§ 

nn?t * u 

4||pJi ** t 4k 4 1* 


104045 

pt 

OiSHXQ 

B 

013346 

ohk 

813346 

goQ4Qp 

H 

013344 

016434 

104042 

gn|74 

014346 

m 

r\nr mnp 
i nunpn 

AW 'W w m 
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103 


1671 

ibr| 

isr3 

167M 

1 

20721*4 

nnu^fL? 

! I * W * 

177366 

1677 

207020 . 

016767 

172064 

1678 

007026 

004767 

177142 


; **♦***♦******#******#***♦*#*§*#♦##«*####*###*#************♦*******♦**+*#■ 
t2: 2 ; ROUTINE NUMBER 2„ * 

T3 ADDRESS OF NEXT ROUTINE * 

10. ;TEST ITERATION COUNT * 

GA ; SCOPE ENTRY POINT » 

;#***##**t***#************####*#**#####f ##***###*###**♦#*** ************** 

;WALL FORWARD TEST. SINGLE BLOCK. BINARY COUNT. 

;TEST SEQUENCE: 1. BINARY FILL WRITE BUFFER 0. 

; 2. FILL IN REV ANO FWD CHECKSUMS. 

; 3. WALL FWD 258 WORDS ONTO BLOCK 200. 

4. RDATA FWD 256 WORDS. VERIFY DATA. 

: 5. RALL REV 259 WORDS. VERIFY 258 WORDS INCLUDING EXTENDED 


i 7 2032 


17665C 


JSR 

MOV 

JSR 

WALLF 

SCO 
090 • 

RWCKSO 

EWRCKO 

RDATAF 

|tc»; 

reuro 

f||»- 

266. 
COO' * 

RRCKSO 

ERRCKO 

ADTCKI 

RWCKSO 

FRCKSO 

EWRCKO 

ERFCKO 

*58. 

S'vOPE 


PC.BINFLO 
8LKNUM.BLKRQ 
PC. SETWBF 


:BINFIL WBUFO. 


JBVERS 


SET UP WRITE 8UFFER FWD. 

WRITE ALL FWD 259. WORDS STARTING 
FROM ADDR RWCKSO . EXTENDED DATA SITS ARE 
TAKEN FROM CONSECUTIVE BYTES STARTING 
AT ADDRESS EWRCKO . 

CALL RDATAF SUB TO READ FWD 256. WORDS 
AND STORE AT ADDR STARTING AT R3UF0 

CALL DATCHK SUB TO CHECK DATA STORED AT 
WBUFO AGAINST DATA STORED AT RBuFQ 
CHECK NUMBER OF WORDS SPECIFIED. REPORT 
ERRORS. 


:READ AU REV 2S8. WORDS INTO 
:ADDR RRCKSO ANO UP. EXTENDED DATA BITS ARE 
; STORED IN CONSECUTIVE BYTES STARTING 
• At ADDRESS ERRCKO 

•CALL AOTCKI SUB TO* CHECK 18 BIT DATA START] 

\§MMst%m6 Bsr.m 

: IS CHECKED IN DESCENDING ORDER. FIFTH ARGU? 
; REPRESENTS » OF IS BIT ELEMENTS TO SE CHEC^ 
: REPORT ERRORS. 


TC4 - TC11 TEST 
DZTCDC.Pil 
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J03 


1705 

II 

13 ! 

1711 

1712 

1713 

1714 

1715 


1718 

xfio 

1724 

if! 

|7|7 

1730 

1701 

1732 

1733 

1734 

1735 

173^ 

1739 

1740 

m 

1743 

1744 

1745 

17$ 

1748 


ifilfc 007130 


1751 


gggP 

1 7131 

715c 

rilfe 

7160 

I! 

007|p 

007114 

007221 

007230 

007242 

007244 


004767 

016767 

004767 

004567 

011274 

015410 

000402 

104046 

m 

015410 

104032 

000400 

013346 

004567 

011274 

015410 

000402 

104037 

011276 

013346 

000400 

104047 

000402 

013344 

016434 

104042 

011274 

014346 

BiPoai 

000402 

104200 


177252 

171750 

177034 

177304 


t3! ?S ;«§ ra T 3 ROUTINE : 

10. ; TEST ITERATION COUNT * 

HA : SCOPE ENTRY POINT * 

;M**«*#Mft*ft*****#*ft*ft*ft*ft##«****ft*t*##ft*ft*ftft***»********t**4*********** 

;WALL REV TEST. SINGLE BLOCK. BINARY COUNT. 

;TEST SEQUENCE: 1. BINARY FILL WRITE BUFFER 0. 

; 2. FILL IN REV AND FWD CHECKSUMS. 

; 3. OBVERSE 258 WORDS TO BE WRITTEN. 

; 4. WALL REV 258 WORDS ONTO BLOCK 200. 

; 5. RDATA REV 256 WORDS. 

; 6. 08VERSE DATA READ IN STEP 5 AND VERIFY DATA. 

7. RALL FWD 258 WORDS. VERIFY 258 WORDS INCLUDING EXTENDED SI’S. 


17171s 


176532 


JSR 

MOV 

JSR 

JSR 

RWCKSQ 

EWRCKO 

258. 

WALLR 

258. 

RWCKSQ 

EWRCKO 

RDATAR 

256. 

RBUFO 

JSR 

RWCKSO 

EWRCKO 

258. 

DATCHK 

WBUFO 

RBUFO 

256. 

RALLF 

258. 

RRCKSQ 

ERRCKO 

ADTCKI 

RWCKSQ 

FRCKSO 

EWRCKO 

ERFCKO 

258. 

SCOPE 


PC,BINFLO 
3LKNUM.SLKRQ 
PC.SETUBR 
R5, RE VERS 


R5.0BVERS 


; BINFIL WBUFO. 

; SET UP WRITE SUFFER REV. 
•REVERSE WRITE BUFFER DATA. 


; WRITE ALL REV 258. WORDS STARTING 
•FROM ADDR RWCKSO . EXTENDED DATA SITS ARE 
; TAKEN FROM CONSECUTIVE BYTES STARTING 
;AT ADDRESS EWRCKO . 

; CALL RDATAR SUB TO READ REV 256. WORDS 
•STARTING AT ADDR RBUFO 

: OBVERSE DATA READ. 


:CALL DATCHK SUB TO CHECK DATA STORED AT 
;W3UF0 AGAINST DATA STORED AT RBUFO 
; CHECK NUMBER OF WORDS SPECIFIED. REPORT 
ERRORS. 

•READ ALL FWD 258. WORDS INTO 
;ADDR RRCKSO AND UP. EXTENDED DATA BITS 
; ARE STORED IN CONSECUTIVE BYTES STARTING 
•AT ADDRESS ERRCKO . 

{CALL ADTCKI SUB TO CHECK 18 BIT DATA STARTING 
•AT ADDR RWCKSQ AND EWRCKO . AGAINST 18 BIT DATA 
STARTING AT ADDR FRCKSO AN0 ERFCKO . ACTUAL DATA 


•STARTING AT ADDR FRCKSO AN0 ERFCKO . ACTUAL 
jlS CHECKED IN DESCENDING ORDER. FIFTH ARGUMEN1 
; REPRESENTS « OF 18 BIT ELEMENTS TO BE CHECKED. 
; REPORT ERRORS. 


TC4 - TCI 1 TEST 
0ZTCDC.P11 


QQ7246 000004 
007250 007344 
007252 000012 
007254 007255 


00725b 

007252 

007255 

007274 

007300 

007302 

007304 

0073% 

007310 

007312 

007314 

007315 

007320 

007322 

i| 

007330 

007332 

007334 

007335 

007340 

007342 

007344 

007345 

007350 

007352 


ff 

007354 

007372 

007375 

007402 

557454 

007405 

007410 


004757 

004757 

015757 

004757 

104045 

001020 

011274 

015410 

104031 

001000 

013345 

104047 

001020 

013344 

016434 

104041 

011274 

013344 

015410 

016434 

001020 

104000 

000005 

007460 

000012 

007354 


004767 

004767 

516767 

004767 

004567 

011264 

015404 

001020 

505267 
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K03 


177124 

177144 

171616 

176674 


I************************************************************************ 

T4: 4 ; ROUTINE NUMBER 4 * 

T5 ADDRESS OF NEXT ROUTINE * 

10. ; TEST ITERATION COUNT * 

I A SCOPE ENTRY POINT * 

; WALL FWD TEST. 2 BLOCKS. BINARY COUNT. 

;TEST SEQUENCE: 1. BINARY FILL WBUFO AND WBUF1. 

; 2. FILL IN REV AND FWD CHECKSUMS. 

; 3. WALL FWD 528 WORDS ONTO BLOCK 200 AND 201. 

: 4. READ DATA FWD TO CHECK FOR PARITY ERRORS. 

: 5. RALL FWD 528 WORDS. VERIFY DATA AND EXTENDED DATA. 


171554 


JSR 

WALLF 

528. 

RUCKSQ 

EWRCKO 

RDATAF 

512. 

RBUFO 

RALLF 

528. 

RRCKSO 

ERRCKO 

ADTCK 

RWCKSO 

RRCKSO 

EWRCKO 

ERRCKO 

528. 


PC.BINFLO 
PC.BINFLl 
CLKNUM.BLKRQ 
PC , SETWSF 


; BINFIL WBUFO. 

•BINFIL WBUF1. 

; SET UP WRITE BUFFER FWD. 

WRITE ALL FWD 528. WORDS STARTING 
; FROM ADDR RWCKSO . EXTENDED DATA SITS APE 
TAKEN FROM CONSECUTIVE BYTES STARTING 
AT ADDRESS EWRCKO . 

CALL RDATAF SUB TO READ FWD 512. WORDS 
; AND STORE AT ADDR STARTING AT RBUFO 

;REAO ALL FWD 528. WORDS INTO 
•ADDR RRCKSO AND UP. EXTENDED DATA BITS 
;ARE STORED IN CONSECUTIVE BYTES STARTING 
•AT ADDRESS ERRCKO . 

•CALL ADTCK SUB TO CHECK 18 BIT DATA STARTING 
; AT ADDR RWCKSO AND EWRCKO . AGAINST 18 BIT DATA 
•STARTING AT ADDR RRCKSO AN& ERRCKO . FIFTH ARGU: 
; REPRESENTS • OF IS BIT ELEMENTS TO CHECK. 

REPORT ERRORS. 


SCOPE 

;****iH**##*****#*#**#*#*********HHH**#*#*#*#*####***#**#«****IHt********** 

hs: 5 ; ROUTINE NUMBER 5 * 

T6 ADDRESS OF NEXT ROUTINE * 

10. ;TEST ITERATION COUNT * 

JA SCOPE ENTRY POINT * 


177026 

177046 

171520 

176604 

177054 


171444 


171466 


•.WALL REV TEST. 2 BLOCKS. BINARY COUNT. 

; TEST SEQUENCE: 1. BINARY FILL WBUFO AND WBUF1. 

2. FILL IN REV AND FWD CHECKSUMS. 

; 3. OBVERSE F ^ REVERSE 528 WORDS OF DATA TO BE WRITTEN. 

; 4. WALL REV 5^8 WOROS ONTO BLOCK 201 AND 200. 

5. READ DATA REV 512 WORDS TO CHECK FOR PARITY ERRORS. 

: 6. RALL REV 528 WORDS. VERIFY DATA AND EXTENDED DATA. 

)A: JSR PC,BINFLO :BINFIL WBUFO. 

JSR PCI BINFL1 BINFIL W8UF1. 


JSR 

JSR 

MOV 

JSR 

TAB 

AWBUFQ 

EAWBFO 

528. 

INC 


PCJINFLO 
PClBINFLl 
BLKNUM, BLKRQ 
PC f SETW§R 
R5. RE VERS 


; SET UP WRITE BUFFER REVERSE. 
•REVERSE 528 WORDS OF WRITE DATA. 


BLk'RQ 
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L03 


007414 

007416 

007424 

007426 

007430 

007432 

007434 

007436 

007440 

007442 

007444 

007446 

007450 

007452 

007454 

007456 


007470 

007474 

007500 

007504 

007510 

007516 

007522 

007526 

007530 

0075$ 

007534 

007536 

m 

007556 

007560 

007562 

537564 

$7566 

007570 

007572 


104046 

001020 

011264 

015404 

104032 

00100C 

013346 

104050 

m 

016430 

104041 

011264 

013334 

015404 

016430 

Q01020 

104000 


WALLR 

528. 


007460 000006 
007462 010010 
007464 000012 
007466 007470 


004767 

00506 ? 

004767 

012700 

012767 

005267 

104045 

000403 

011274 

015410 

005300 

001370 

m 

162767 

104032 

000400 

013346 

104040 

011276 

014344 

000400 


RDATAR 

512. 

RBUFO 

RALLR 

528. 

ARBUFO 

EARBFO 

ADTCK 

AW8UF0 

ARBUFO 

EAUBFO 

EARBFO 

528. 


; WRITE ALL REV 528. WORDS STARTING 
; FROM ADDR AWBUFD . EXTENOED DATA BITS ARE 
•TAKEN FROM CONSECUTIVE BYTES STARTING 
: AT ADDRESS EAWBFO • 

;CALL RDATAR SUB TO READ REV 512. WORDS 
•STARTING AT ADDR RBUFO 

;R£AD ALL REV 528. WORDS . 

j WMdl?ivi X ^. STARTING 1 ^ « 

AT ADDRESS EARBFO . 

CALL ADTCK SUB TO CHECK 19 BIT DATA STARTING 
AT ADDR AWBUFO AND EAWBFO . AGAINST 18 BIT DATA 
•STARTING AT ADDR ARBUFO An6 EARBFO . FIFTH ARGUMENT 
REPRESENTS I OF 18 BIT ELEMENTS TO CHECK. 

REPORT ERRORS. 


176712 

171360 

176470 

001102 

177777 

171336 


SCOPE 

tfe: 6 ; ROUTINE NUMBER 6 * 

T7 ADDRESS OF NEXT ROUTINE * 

10. TEST ITERATION COUNT * 

KA : SCOPE ENTRY POINT * 

;*#**#*#*ft***ftft**tftftt**ft*ft*#**ft#ft###*ft#*ft*t**ftt*ft#ftt«*****«************** 
•WALL-RALL TEST. ALL BLOCKS BINARY COUNT. 

•TEST SEQUENCE: 1. BINARY FILL WBUFO. 

; 2. FILL IN REV AND FORWARD CHECKSUMS. 

; 3. WALL FWD 260 WORDS IN EACH BLOCK. STARTING WITH 0. 

4. RDATA REV EVERY OTHER BLOCK. VERIFY DATA. 

5. RDATA FWD EVERY OTHER BLOCK. VERIFY DATA. 

; 6. OBVERSE WRITE DATA TO MATCH RALL REV DATA. 

; 7. RALL REV 258 WORDS EVERY OTHER BLOCK. VERIFY DATA. 

• 8. REOBVERSE WRITE DATA TO MATCH RALL FWD DATA. 

9. RALL FWD 260 WORDS EVERY OTHER BLOCK. VERIFY DATA. 


171342 


000441 

001103 

000002 


171310 

171302 


JSR PC 

CLR BL 

JSR PC 

MOV IS 

MOV I- 

INC BL 

WALLF 
2S9. 

RWCKSO 
EWRCKO 
DEC RC 

BNE KB 

MOV 12 

MOV IS 

SUB *2 

RDATAR 
256. 

RBUFO 

DATCKI 

WBUFO 

RBUF0+510. 

256. 


PC.BINFLO 

BLfl’RQ 

PC.SETWBF 

1578.. RO 

l-l.BLKRQ 

BLKRQ 


RO 

KB 

1289.. RO 

1579., BLKRQ 
12, BLKRQ 


; BINFIL WBUFO. 

; SET UP WRITE BUFFER FWD. 

; SET UP TO WALL 578 BLOCKS STARTING 
•WITH BLOCK 0. 

; WRITE ALL FWD 259. WORDS STARTING 
;FROM ADDR RWCKSO . EXTENDED DATA BITS APE 
TAKEN FROM CONSECUTIVE BYTES STARTING 
AT AODRESS EWRCKO . 

•DONE ALL BLOCKS? 

BR IF NOT DONE. 

; SET UP TO READ DATA REV EVERY OTHER BLOCK. 


; CALL RDATAR SUB TO READ REV 256. WORDS 
•STARTING AT ADDR RBUFO 

; CALL DATCKI TO CHECK DATA STORED AT 
; WBUFO AGAINST DATA STORED AT RBUF0+510. 

: CHECK I OF WORDS SPECIFIED. REPORT ERRORS. 
; ACTUAL DATA IS CHECKED IN DESCENDING ORDER. 


TC4 - TCil TEST 4 
D2TC0C.P11 
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M03 


007574 

00757b 

007500 

007504 

007512 

007520 

0g75|4 

007525 

007630 

007532 

007534 

007535 

007540 

007542 

007546 

007650 

mm 

007654 

007650 

007666 

007674 

007675 

007700 

007702 

007704 

007705 

007710 

007712 

007714 


005300 

001364 

m 

052767 

104031 

000400 

013346 

104037 

011275 

013346 

000400 

005300 

001364 

004557 

011264 

015404 

m 

012767 

162767 

104050 

000402 

013344 

016434 

104042 

011274 

014346 

015410 

017035 


000441 

177776 

000002 


171245 

171240 


KD: 


175066 


000441 

001103 

000002 


171172 

171164 


KE: 


OEC 

BNE 

MOV 

MOV 

AOD 

RDATAF 

256, 

RBUFO 

DATCHK 

WBUFO 

RBUFO 

256. 

DEC 

She 

JSR 

AMBUFO 

EAWBFO 

266. 

MOV 

MOV 

SUB 

RALLR 

258. 

RRCKSO 

ERRCKO 

AOTCKI 

RWCKSO 

FRCKSO 

EWRCKO 

ERFCKO 


RO 

KC 

•239., RO 

•-2.BlI.KRQ 

•2,8LKRQ 


RO 

KD 

R§, OB VERS 


•289., RO 
•579. ,BLKRO 
•2.BLKRQ 


1894 

007716 

000400 




256. 


1895 

007720 

005300 




DEC 

RO 

18% 

007722 

001361 




BNE 

KE 

1897 

007724 

004567 

176004 



JSR 

R5, OB VERS 

1898 

007730 

011264 




AWBUFO 


1899 

007732 

015404 




EAWBFO 


1900 

007734 

000412 




266. 


1901 

007736 

012700 

000441 



MOV 

•289. .RO 

1902 

007742 

012767 

177776 

171110 


MOV 

•-2.BLKRQ 

1903 

007750 

062767 

000002 

171102 

KF: 

ADD 

»2,oLKRQ 

1904 

007756 

104047 




RALLF 


1905 

007760 

000402 




258. 


1906 

007762 

013344 




RRCKSO 


1907 

007764 

016434 




ERRCKO 


1908 

007766 

104041 




ADTCK 


1909 

007770 

011274 




RWCKSO 


1910 

007772 

013344 




RRCKSO 


1911 

007774 

015410 




EWRCKO 


1912 

007776 

016434 




ERRCKO 


1913 

010000 

000402 




258. 


1914 

010002 

005300 




DEC 

RO 

1915 

010004 

001361 




BNE 

KF 

1915 

010006 

104000 




SCOPE 


1917 





: *******«#ftft*x*****«*****4 

1918 

010010 

000007 



T7: 

7 


1919 

010012 

177777 




TLAST 



DONE’ 

BR IF NOT DONE. 

SET UP TO READ DATA FWD EVERY OTHER BLOCK. 


CALL RDATAF SUB TO READ FkO 256. WORDS 
ANO STORE AT ADDR STARTING AT RBUFO 


CALL DATCHK 
WBUFO AGAIN* 
CHECK NUMBEf 
ERRORS. 


SUB TO CHECK 
IT DATA STORES 
! OF WORDS SPi 


DATA STORED AT 
I AT RBUFO 
iCIFIED. REPORT 


ni 


NOT DONE. 


OBVERSE WRITE DATA TO MATCH RALL REV DATA. 


; SET UP TO RALL REV EVERY OTHER BLOCK. 


READ ALL REV 258. WORDS INTO 

ADOR RRCKSO AND UP. EXTENDED DATA BITS 

w?* BYTES STflRTlNG 

CALL ADTCKI SUB TO CHECK 18 
AT ADOR RWCKSO AND EWRCKO . 

STARTING AT ADDR FRCKSO AN0 
IS CHECKED IN DESCENDING ORDER. 
REPRESENTS « OF 18 BIT ELEMENTS 
REPORT ERRORS; 

DONE? 

BR IF NOT DONE. 

REOBVERSE WRITE 


ARE 


BIT DATA STARTING 
AGAINST 19 BIT DATA 
ERFCKO . ACTUAL DATA 
FIFTH ARGUMENT 
TO BE CHECKED. 


DATA TO MATCH RALL FWC DATA. 


; SET UP TO RALL FWD EVERY OTHER BLOCK. 


READ ALL FWD 25B. WORDS INTO 
ADDR RRCKSO ANO UP. EXTENDED DATA BITS 
ARE STORED IN CONSECUTIVE BYTES STARTING 
AT ADDRESS ERRCKO . 

CALL AOTCK SUB TO CHECK 18 BIT DATA STARTING 
AT ADDR RWCKSO AND EWRCKO . AGAINST 18 BIT DATA 
STARTING AT ADDR RRCKSO AN0 ERRCKO . FIFTH ARGUMENT 
REPRESENTS • OF 18 BIT ELEMENTS TO CHECK. 

REPORT ERRORS. 


OONE? 
BR IF 


NOT DONE. 


{ROUTINE NUMBER 7 
; ADDRESS OF NEXT ROUTINE 


* 

* 


No 


4 - TCI 1 TEST 4 
TCDC.P11 
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N03 


1920 

1921 


1924 

j||7 

lip 

1935 

1936 

1937 

ill? 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

ill 

ill 

1955 

I 

iP 

i%8 

19o9 

i* 

1972 

1973 

1974 

1975 


010014 000012 
010016 010020 


010020 

010024 

010030 

010032 

010036 

gigCMO 

010044 

010046 

010052 

010054 

otoo|i 

010070 

0X0072 

010100 

010104 

010106 

010110 

010114 

01012 ? 

010126 

» 

010144 


11 

ii 

010204 

010212 


0Q4767 

004567 

000040 

504567 

mm 

$34567 

000004 

004567 


§ 7 

7 

Slii 

104047 


013344 

mn 

011274 

013344 

015410 

016434 

ioOMOO 

513346 

032777 

001013 


1U. ; TEST ITERATION COUNT # 

LA : SCOPE ENTRY POINT * 

•PARITY TEST 

J TEST SEQUENCE: 1. BINARY FILL WBUFO. 

; 2. FILL IN REVERSE AND FORWARD CHECKSUMS. THE RESULTING 

FORWARD CHECKSUM WILL BE 77. 

• 3. CLEAR ONE BIT OF FWD CHECKSUM. 

! i: ftt RB IH »t Vm 

; 6. RDATA FWD 256 WORDS. PARITY ERROR SHOULD OCCUR. IF NO 


m 

000034 

000026 

000020 

000012 

000004 




170764 

170760 

175460 

170758 

170744 


170760 LSUBA: 


170760 


002142 

005647 


040000 170572 


JSR 

JSR 

BIT5 

JSR 

BIT4 

JSR 

BIT3 

JSR 

BIT2 

JSR 

BITl 

JSR 

BITO 

SCOPE 

MOV 

JSR 

WBUFO 

EW8UFQ 

BIC 

NOV 

JSR 

MOV 

MOVB 

WALLF 

2S8. 

RWCKSQ 

EWRCKO 

RALLF 

258. 

RRCKSO 

ERRCKO 

ADTCK 

RWCKSO 

RRCKSO 

EWRCKO 

ERRCKO 


2S6. 

B™ 


4. WALL FWD 251 

5. RALL FWD 251 

6. RDATA FWD 2! 
ERROR OCCURS 
PARITY WRIT! 


TYPE OUT THE CORRECT PARITY AND THE INCORRECT 
f. TO INDICATE THE BIT FAILING TO CAUSE ERROR. 


REPEAT STEPS 2 THROUGH 6 FOR EACH PARITY BIT. 


PC,BINFLO 
RS, LSUBA 

RS, LSUBA 

R5, LSUBA 

R5, LSUBA 

R5, LSUBA 

RS, LSUBA 

swr* 


ip; 

LP6.FWCKS0 

ELP§,EWFCKO 


BINARY FILL WBUFO. 

RUN TEST. 

RUN TEST. 

RUN TEST. 

RUN TEST. 

RIJN TEST. 

RUN TEST. 

SCOPE. 

COMPUTE PARITY FOR WBUFO. 


; CLEAR SPECIFIED BIT FROM CALCULATED PARI' 


MOVE BAD PARITY TO WBUFO. 

WRITE ALL FWD 258. WORDS STARTING 
FROM ADOR RWCKSO . EXTENDED DATA BITS ARE 

at k £ddress ^kS UTIVE bytes STPRT!NG 

M WW DATA SITS 
ARE STORED IN CONSECUTIVE BYTES STARTING 
AT AODRESS ERRCKO . 

CALL ADTCK SUB TO CHECK 18 BIT DATA STARTING 
AT ADDR RWCKSO AND EWRCKO . AGAINST 18 BIT DATA 
STARTING AT ADDR RRCKSO ANO ERRCKO . FIFTH ARGUP 
REPRESENTS i OF 19 BIT ELEMENTS TO CHECK. 

REPORT ERRORS. 


•6IT14.3TCST 

LSUBBA 


CALL RDATFS SUB TO READ DATA FWD 256. 
AND STORE AT ADDR STARTING AT R8UFQ . 
ALLOW PARITY ERROR. 

PARITY ERROR* 

BR IF PARITY ERROR SET. 


WORDS 
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2034 

tsii 

33 

SCHe 

20*43 

2044 

sons 

§s 

mi 

II 

I 




I 

I Bis 

r.a 

SOS? 


oiosro 

oicsrs 

g|§|i| 

§j§ll| 

010704 

010712 

Q1Q715 

QjOp 

010747 

M 

S||^| 

!ii!^ 

011142 

011150 


05l44g 
00 • 

§ioPl 

04| 

“iw 

^040 


042040 

M 

047515 

Ip 

05112? 




035522 000050 
000352 

041524 040502 
020040 020040 


04^503 

OIoohI 

047515 

m 

° 20 ^ 

045102 


0535^3 


047117 


40 
40 

i 

04 

40 
057 
40 
3440 


B3i§i3 

043040 


020115 

020040 

qIooho 

042040 

051124 


051105 

051113 


020040 020040 


020103 

020050 


041103 020101 


020107 


041524 040502 


020040 

m 


C2D §| 

020040 

051501 


«9Q040 020040 


P 2 il 

042457 

0|2117 

047046 

052517 


C04 
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APGEND: 

.BYTE 

007 


.ASCII 

•*/.#* 

CTCWC: 

.ASCII 

* TCWC ’ 

ATCWC: 

.ASClf 

♦ ♦ 

CTCBA: 

.ASCII 

’ TCBA ’ 

ATCBA: 

.ASCII 

• * 

STAT: 

.ASCII 

’ TCCn * 

ATCCM: 

.ASCII 

TOST * 

ATCST: 

. ASC I*. 

1 • 

IN7FAI: 

.ASCII 

* NC DT IH-RPT * 

DTERR: 

.ASCII 

’ DT ERR * 

BLK5B: 

.ASCII 

* BLKRy * 

ABLKRQ: 

.ASCII 

* t 

WCNOTC: 

.ASCII 

•TCWC NOT C * 

INwT'vB : 

.ASCII 

•TCBA L«CNG * 

7CSA5B: 

.ASCII 

• TCBA * 

ATC8AS: 

.ASCII 

§ t 

DATERR: 

.ASCII 

• DATA ERR WORD * 

AWDCNT: 

.ASCII 

• C ,/Q: • 

« 3 ' 6 

ADAT5B: 

.ASCII 

* WAS * 

r )ATWS: 

.ASCII 

• 1 

NOUNIT: 

.ASCII 

’ '.NC UNITS AVAILABLE.’ 

STCflSG: 

.ASCII 

’ROY 'ERR NOT 0 AFTER DC* 

5PCHER: 

.ASCII 

* BLK NOT F3L70* 
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? 1 .T? 


2125 

iii| 

2i4u 

£141 

2142 

2142 


1 11153 
11150 
11155 
lilg 

ill 

Clllll 

gli||4 

011252 


011254 

011255 

011270 

011272 

011274 

011275 

8i|io 

012312 

m 

013322 

B s 

i 

§ 133 ^ 

014345 

014350 

Cl 4352 

014354 

014355 


r*=ac 

csiiof 

043440 

li 

040 

cl 34 H 5 

042524 

044515 

OCQ 


000000 

000000 

000000 

000000 

000000 

000000 


l* , n VH 

HiiTsTtTitt] 


f.nnrt M 

g 

QOOCOO 

014 ^% 

000000 

000000 

uQOwOO 

000000 


047515 

042440 

Q47S17 

020040 

000 

043040 

020040 

000045 

04|1|1 

oiisP 

nnnnra 

wwwuD i 

051 

054 

057 


050040 

051122 

020104 

040502 


041520 


020114 

Bloori 


NFARE: .ASCII 'WO FAR ERR GOOD * 


AGPAR: .ASCII * 3AD 8 

A3PAR: .ASCII * 8 

FPCMSG: .ASCII * F^C ' 


020040 AFPC: .ASCIZ 


GOOD: .ASCIZ ’’.WILL TEST UNITS: 


GTAPES: .ASCII 8 .* 
GTAB: .3VTE ’C.’l.’ 


2 • “ *4 *C *£. *7 


AWBUFO: 

UFBlKQ: 


RWCKSO: 

WBUFQ: 

FUCKSQ: 


.EVEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

.=.♦51; 

OPEN 

gfN 

OPEN 


: WRITE BUFFER 


WRBLKQ: OPEN 


AWBUF1: 

UFBlKi: 


RWCKSi: 

UBUFi: 

FWCKSi: 


WR3LK1: 

ARBUFO: 

RFBLKO: 


RRCKSO: 

RBUPO: 

FRCKSO: 


RRBLKO: 


OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

.*.♦510. 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

.=.♦510. 

OPEN 

OPEN 

OPEN 

OPEN 


: WRITE SUFFER 


; READ BUFFER 0 


r ' 
• ^ 


h - :::: test 4 


ktcdc.ph 


lifeH 

21S5 
1 18 
im 

51 **r» 
£•< y 

3 ^ 1 
2172 
2172 

2174 

2175 
2175 
2177 
2175 
2175 
2.52 
2181 
2 f sp 

cl82 
•5 ^ O W 

w 4k 'll*™ 

2 ’ SC 


014360 
014362 
1i4|64 

514270 

114372 

015372 
jfr§3?4 

SiShoi 

0154 
015404 
015405 
015410 
015411 

016011 

K 

016017 

016022 

016023 

015423 

016426 

fltjLU 

wiy" 

01641 
016434 
016435 


017042 
01 7045 
017046 
01754 ? 


7 ? 7 u ^7 
n * ^uSTS 

w 4k • * w w 



015372 

000000 



ogc 

000 

016011 

000 




Q 5 Q 

000 

coo 

016423 

oSo 

000 


oco 

017035 


000 

000 

inn 

“nr 

UWw 

017447 

OCO 

mn 

WWW 


•jrr.r.n * 

4ak 4a* la# la* I* * 
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E04 


gooooo 

000000 


COG 


COO 

nnn 

Ww w 

000 


000 


4 #y-% 

rnn 

WWW 


000 

000 

000 


030 

nnn 

WWW 


ARSUFi: 

RFBLKi: 


;REA0 BUFFER 1 


RRCKSi: 
RBUF1 : 

FRCKS1: 


RRBLk 1 : 

EAWBFQ: 
000 EWFBKQ: 
EWRCK0: 
EWBUFQ: 

000 EWFCK0: 
EWRBK0: 
EAWBF1: 
000 EWFBK1: 
EURCK1: 
EWBUFi: 

000 EWFCK1: 
EURBKi: 
000 EARBF0: 

ERRCKO: 

ERBSJF0: 

000 ERFCKO: 

000 EfiRBFi: 

ERRCK1: 

ERBUF1: 

000 ERFCKi: 


OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
+510. 

OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

.BYTE OPEN 
.BYTE OPEN. OPEN, OPEN 
.BYTE OPEN 
.BYTE OPEN 
s +255 

!byte ‘open. open. open 
.byte open. open 
.byte open 
.BYTE open, open. open 

.byte open 

.BYTE OPEN 

4*k ^pCC 

!§YT| OPEN, OPEN. OPEN 
.BYTE OPEN. OPEN 
.BYTE OPEN . OPEN , OPEN , OPEN 

.BYTE OPEN 
.BYTE OPEN 

s +2S C 

; BYT ' OPEN , OPEN . OPEN . OPEN , OPEN 

.BYTE OPEN, OPEN. OPEN. OPEN 

.BYTE OPEN 
.BYTE OPEN 
. z . +255 . 

. BYTE OPEN. OPEN, OPEN. OPEN, OPEN 


• END 


: EXTENDED WRITE BUFFER 0 


; EXTENDED WRITE SUFFER 


; EXTENDED READ SUFFER 


; EXTENDED READ SUFFER 




! 

* 


in 



' % 4 m 

'S.J 


:i: t£s •* 


C2TC0C.Pi: 




3 1» k N *# !*^ 30 1 i * %> 




:hsl: i 


:hna 

*yj uAA 

i#iTt Iffn 




g|t 

f fift| | 0 

xSvrrC 

ji Ci g^i i I ra 


crall 


CPALL 

:t;!a 

Sig^ v 

■& «■ n.rl 












rwcvj 

REFERENCE 

H 05 

h; 9 i 

mil 

*:&• 

h:s» 

HiH 


}5B 






5 :dh 2 
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02TC0C.?il 


CkALL 

CWALLA 

CWALLB 

CfcALLC 

CWAlLD 

CWALLfc 

CWALLF 

CI4C8A 

CkCBB 

CWCBC 

JVJ 

CfiTCHK: 

DflTCK 

MTCKfl 

Ur 1 I % !\v 

DA7CKD 

DATCkf 

DATCKF 

DfiTCKG 

DATCKH 

DATCKls 

DATCKK 

DATERR 

DATKNT 

DECVAL 

DELAY 5 

OINH s 

DIRIND 

OlY 

DLYA 

DLVB 

DLYRQ = 

DLYR1 s 

Etrmm 

DTRft« 

D7RMNC 

EARBFO 

psi 

iBB 1 . 

ml! 

! EHLTA 

i elfb 

! EMTINT 
! EMTTAB 
. EfITv 
' EYTX s 


Q05142 

005162 

§oh|hh 

J 364= 

003672 

003712 

004004 

QQ41|4 


004172 

104Q40 

II 

I13I 

Spmpi 
001430 
001454 
016430 
017042 
01 5404 
016016 

|| 
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H04 


1285 

1289* 




1284* 

1287* 

1234* 



1203* 

1286* 

1297* 



1295 

1301* 




1304 

1308* 




1309 

1311* 




1314* 






1141* 




1145 

1153* 




1154 

1167* 




1642 

1649* 




561* 

1696 

1737 

1372 


560 

1043 

1044* 



1050 

1053* 




1056* 

1116 




1061 

1066* 




1067 

1070* 




1069 

1103* 




1105 

1111* 




1110 

1115* 




1102 

lllf* 




562* 

1474 

1438 

I960 


1041 

1046* 




1099 

2067* 




1028* 

1054* 

1071 

1103* 


936 

963* 




497* 

1184 

1249 

1298 

1339 

460* 





1171* 

1173* 

1212 

1215 

1235* 


i!i 

878* 


877 


879* 

§84 


480* 

599 

1131 

1264 

561 

1042* 



1012 

2051* 



584* 

607 



588 

5Q5# 

614 

617 

591 

595 

600 

604 

609 

618* 



P. 

1818 

1823 

2170* 

1527 

1543 

1692 

1805 

1 553 

2183t 




1233 


6131 


1311 


1322 


1380 


1399 


2156s 


794 i 
7971 
1366* 
704* 
708 

530* 

543* 

556* 

569# 


1399* 1503 1509 1956 


531* 

544* 

557* 

570* 


532* 

533* 

534* 

535* 

536* 

537* 

533* 

539* 

540# 

lo* 8 

545* 

546* 

547* 

549* 

549* 

550* 

551* 

552* 

— *** ^ 
«****[£ 

SS 4 # 

558* 

571* 

559* 

572* 

560* 

551* 

562* 

563* 

564* 

565# 

55s# 

ss # 


rC4 - TCll T£5* 
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IrSufo 

ERBUF1 

ERFCKO 

ERFCKi 


010244 

016435 

Q170H7 

017035 


ERRCKO 

Plcii 

tRRLlM 

ERRN 

ERRNA. 


ERRNC 

ERRND 

ERRORS 

Up 

Eotki 

EWFCKO 

EWFCK1 

EWRBKC 


EWRCKi 

EXPORT 

« 

FPC 

FPCfISG 

FRCKSO 

FRCKSi 

FWCKSo 

FWCKS1 

m : 

GA T 

GOOD 

50RUN 

GTAPES 


002634 

016434 

ooMsi 

Q0|||2 

104011 

gjSHU 

gifoi? 

OibOk 

Q16423 

OlfeOXH 

016426 

015410 

015022 


GTROYA 

gtrdyb 

GTROYC 


i ny 

HA 

HE ’£ 

t 


RDYX 


8 S© 

1 * Mfc * 

|ii|p 

Boilfe 

ill?? 

fa 


B'dlbife 


943 

1535 

2180K 

"ill* 

1530 

21791 

1029k 

538* 

844K 

|H 5 # 

lli^K 

1517 

1521 

in. 

2155k 

1032k 

it 

55 Qi 
16|9 # 

H62K 

1558 

nil* 

819 

853k 

iJk 

170? 
887 
448K 
1758 
502k 
501 k 


1989K 

2173k 


1702 

1749 

1893 

806* 

80S 

843* 

1656 

1697 

1744 

}§li* 

798K 

850 

849K 

1101* 


641* 

845K 


983 

1010 

1020 

1634 

2166K 

1660 

1951 

1956* 

2169k 

2162k 

&S?* 

2161# 


1754 

1729 

1058* 
594 K 

1065 

1074* 

799* 

801 


ion 

X Oc» 1 

1097 

1700 

1747 

1891 


v 

1678k 

1132 

2 p 9 K 

655k 

693 

1719k 

693K 

1764K 

665* 

674* 


2115k 

1264 


641 K 


2102k 


1266 


667* 

697* 


700* 


flJ*-- (►-* M f|j* 




J04 

49 

1271 1275 1283 1288 1311 1324 


1394 1395* 1397* 1411 1412 1415* 1417* 


1945 1948* 


89b* 


823 

827 

831 

835 

339 

1020 

1034 

1733 

1878 

1897 





508 

507 

508 

509 

510 

511 

512 

519 

520 

521 • 

522 

523 

•524 

527 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1248 

1281 

1294 

1297 

1335 

1339 

1402 

1530 

1589 

1590 

1591 

1598 

210S 

2109 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2131 

2132 

2133 

2134 

2135 

2138 

2137 

2145 

2148 

214? 

2148 

2149 

2151 

2152 

2159 

2181 

2182 

2183 

2184 

2185 

2188 

2177 

2179 

2180 

2192 
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CROSS REFERENCE 

- USER SYMBOLS 


PARTYA 

005454 

13709 

1389 




PARTYB 

005620 

1397* 

1400 




PC s’ 

.000007 

4309 

689* 

1378* 

1380* 

1382* 



1538* 

1549* 

1553* 

1623* 

1625* 



1765* 

1767* 

1799* 

1800* 

1802* 

POT IT 

0ig;ft3 

91 « 

20039 




POPSP = 


4339 





P0PSP2= 

022826 

4349 

735 

746 

766 

1189 

PRTYO = 

000000 

397 

4429 




PRTY1 s 

oooohc 

4419 





PRTY2 = 

000100 

4409 





PRTY3 = 

550140 

4399 





PRTY4 = 

555200 

4389 





PRTY5 * 

000240 

4379 

4369 





PRTY6 r 

000300 

498 




PRTY7 s 

000340 

389 

39 1 

395 

4359 

643 

PSU = 

177776 

4019 

643* 




PTO 

003036 

983* 

8929 

895 

900* 


PT1 

003040 

889* 

8939 

895* 

896* 

899* 

PUSH = 

005746 

4319 





PUSH2 = 

024646 

4329 

1370* 

1 CO 

760 



PHORD 

005640 

1371 

1381 

1385 

14029 

RALL = 

0000% 

4759 

1324 

1327 



RALLF = 

104047 

5699 

1627 

1741 

1775 

1904 

RALLFF 

005264 

563 

13249 



1885 

RALLR = 

104050 

5709 

1653 

1694 

1815 

RALLRR 

005352 

569 

13279 




RBUFO 

013346 

1473 

1476 

1633 

1685 

1688 



1973 

21379 




RBUF1 

014372 

1487 

1490 

21499 

1275 


RDATA = 

000004 

4749 

1266 

1271 


RDATAF* 

104031 

5559 

1633 

1772 

1869 


RDATARs 

104032 

5569 

1471 

1485 

1730 

1812 

RDATF 

555520 

554 

1265 

12669 



RDATFS= 

104033 

5579 

1971 




RDATR 

005046 

555 

1270 

12719 



RDTFSS 

005064 

556 

12749 




REV s 

004000 

4619 

590 

1176 

1177 

1179 

REVCNT 

004664 

1175* 

1223* 

12349 



REVERS 

006456 

15659 

1722 

1803 



RFBLKO 

013336 

21339 





RFBLK1 

5 14362 

21459 




897* 

RIND 

003034 

887* 

888 

889 

8919 


000002 

4739 

590 

1181 

1352 


RRBLKQ 

014354 

21429 





RRBLK1 

015400 

21549 


1696 

1743 

1777 

RRCKSO 

013344 

1629 

1655 

RRCKS1 

014370 

21489 


1457 

1586 


RST03 * 

104003 

5339 

1390 


RST05 s 

104005 

5359 

777 

791 

861 

1000 

921 


104007 

5379 

R|TQ|S= 

000504 

4869 

852 

903 

1025 

RS03 

002230 

532 

7359 



• 

RSOS 

002260 

534 

7469 




RS05S 

002254 

536 

7449 




R55S 

002340 

390 

7659 





K04 


1384* 138?* J41Q* 1418* 1468* 148C* 1492* 1529* 
1828* 1851* 165** 1676* 1678* 1719* 1721* 1784* 
1942* 1844* 1934* 

1252 1253 1314 1315 1353 1354 


900 902 


1961 


1732 

1739 

1774 

1814 

1859 

1862 

1871 

1857 







1269 

1271 

1296 

1327 





1781 

1897 

1906 

1910 

1963 

1967 

21369 

931 

1167 

956 

1262 

1117 

1126 

1137 

1316 

1355 




TC4 - TC11 TEST 4 

NACYll 

27(732) 

08-SEP-76 09:04 

PAGE 

D2TCDC.P11 CROSS REFERENCE TABLE - 

- USER SNM80LS 


RTNNO 001036 

505* 

575* 

655 

678 

595* 

R VERSA Q0S500 

1574M 

1585 




RVR$A Q0$5§H 

1574* 

1576 

1577 

1588* 



Rucito 8 nils 

157S* 

1591* 



1681 

1699 

1723 

1728 

1734 


21121 





RUCKS 1 01232C 

21241 





RUFBKA 006070 

m 

1466* 

1492* 




RMFBK 1 306054 

14621 

146SM 

1623 

1649 



RUFIND 006172 

1462* 

146 5* 

1478 

1493M 


RQ ='.000003 

422* 

583* 

74?* 

606* 

625* 

678* 


736* 

780 

781* 

782* 


917* 

918* 

936* 

1047* 

1121 * 


1572 

1584 

1601* 

1604 

1605 


1901* 

1914* 




Ri =*.000001 

423* 

615* 

726 

737* 

748* 

910* 

925* 

935* 

940* 

944* 


1333* 

1 371* 

1374* 

1376* 

1377* 


1407* 

1408* 

1409* 

1414 

1415 

R2 sv;000002 

424# 

1293* 

725 

738* 

749* 

909* 

1334* 

1368* 

1431* 

1433* 


1584 





R3 =*000003 

425* 

724 

739* 

750* 

911* 

1372* 

1373* 

1375* 

1432* 

1434* 

R4 =‘4300004 

426* 

723 

731* 

751* 

759 

R5 =%0000. S 

427* 

694* 

699 

722 

730* 

80S 

1401* 

1458* 

1499* 

1504* 


1803* 

1878* 

1897* 

1935* 

1937* 

REs s/iOOOOOfe 

428i 

574* 

644* 

664* 


R7 sxOOOOO? 

429* 

650* 

702* 

860* 

865* 

lflV03 = 10® 

472* 

1364 

1426 

1565 


SAVOS s 104004 

£34 1 





SAVQ5S* 1 04006 

538 1 

773 

788 

855 

906 

SAVES s 000003 

485* 

804 

90 1 

981 

995 

score s iomooo 

530* 

988 

1152 

1166 

1196 

1637 

1663 

1704 

1751 

1785 

KLOM 006630 

5041 

67 1 

698* 



1603 

1607* 




SELDRR 006602 

571 

1600* 




SELDRVs 104052 

572* 

586 

622 

1595 


SELE «* 004000 

483* 





5EQDRV- 104051 

571* 

653 

670 



5ETCQH- 104020 

546* 

589 

598 

1180 

1247 

80 II 10 

1496* 

1498* 

1523 

1530* 


1497 

1499* 

1678 



SETWBF 006174 

14961 

1625 

1767 

1844 

SETWBR 006202 

1498* 

1651 

1721 

1802 


SPBOT s 001000 

402* 

574 

644 

664 


SQDRV 006560 

570 

1593* 

1597 



SGDRVA 006574 

1593* 

1594* 

1596* 



SQDRV 1 001320 

584* 

585* 

587« 

615 

668 

SR • 177570 

400* 

636 

651 

655 

SRCCON 004426 

1183* 

li?9 

1203 

1205 

1209 


L04 

701 812 

17% 17/0 1780 1850 1890 1909 1959 1985 


686* 

704 

705* 

706* 

707* 

708* 

709* 

727 

783 

795* 

799* 

856* 

907* 

911 

915* 

916 * 

1130* 

1291* 

1308* 

1332* 

1349* 

1367* 

1427 * 

1566 * 

1845* 

1952* 

1954* 

1864* 

1866* 

• 1876* 

1982* 

1895 * 

774* 

857* 

859* 

863 

967 

871* 

873* 

902 * 

950* 

952* 

1048* 

1122* 

1124* 

1131* 

1135* 

1292 * 

1379* 

1381* 

1383* 

1385* 

1396* 

1404* 

1405* 

1406 * 

1428* 

1454* 

1567* 

1573 





910 

919* 

926* 

937* 

951* 

952 

954* 

1051 * 

1438* 

1440* 

1442* 

1568* 

1569* 

1570 

1571* 

1572* 

912* 

913* 

914 

927* 

929* 

938* 

948* 

1052 * 

1437* 

1439* 

1441* 

1445* 

1448* 

1570* 

1573* 


762* 

767* 

789 

799 

939* 

942* 

945* 

946 

731 

744 

752* 

758 

761* 

762 

765 

768 + 

1515* 

1519* 

1525* 

1587* 

1649* 

1690* 

1722* 

1733 * 

1939* 

1941* 

1943* 

1945* 

1949* 

1954* 

1987* 


870* 

872* 

874* 







924 

1018 

1193 

1825 

934 

1141 

1233 

1916 

1046 

1226 

1251 

1947 

1120 

1238 

1258 

1129 

1300 

1288 

1306 

1329 

1341 

1600 

1347 

1296 

1337 








672 

676 

680 

701* 

794 

944 

1213 

1216 

1224 
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SRCF 

004556 

1196 

12109 




SRCHA 

004360 

1172 

11749 




SRCHAA 

004420 

1178 

11809 




SRCH9 

004432 

1182 

11849 




SRCHC 

004440 

1174 

11879 




IrchEa 

004446 

1187 

11899 




004464 

1191 

11959 




SRCHE 

004526 

1197 

12049 




SRCHER 

011134 

1230 

20859 




SRCF? = 

104025 

5511 

1267 

1276 

1284 

1325 

SRCHFF 

004344 

550 

11719 




SRCHG 

004576 

1211 

12159 

1179* 




SRCHM 

004422 

1176* 

11819 



SRCHR a 

104026 

552* 

1272 

1287 

1328 


SRCHRR 

004352 

551 

4 7 3* 




SRCREV 

.004606 

1194 

12189 




SRCRVA 

004616 

1202 

12209 




SRCRVB 

004626 

1208 

1219 

12229 



SRCRVC 

004634 

1221 

12239 




SRESETa 

104001 

531 • 

645 




SRSETT 

002404 

530 

7809 

783* 



SST a 

000010 

476# 





START 

001242 

489 

5749 




STAT 

010634 

986 

1013 

1023 

1231 

2042# 

STATS 

003310 

546 

9669 




STATUSa 

104021 

5471 

§82 

1009 

1019 

1143 

STCnSG 

gnigs 

985 

20819 




STCOfl 

003350 

545 

9739 




STCOMB 

003436 

978 

980 

9899 



STOPOTa 

104022 

548i 

605 

663 

798 


STPDT 

003444 

547 

9929 




STRTA 

001534 

579 

6339 

637 



STTCV 

002364 

544 

7739 




STWBE 

006364 

1524 

15299 




ivECTRa 

104017 

002130 

5451 

648 




SV03 

531 

7119 




SVQ5 

002160 

533 

7199 




SVOSA 


717 

7209 




SVQ5B 

002202 

714 

7249 




SVOSC 

00|214 

713* 

716* 

719* 

729# 


svoss 

002150 

535 

7169 




SvB 

002310 

388 

7569 




TCBA 

001012 

4959 

596* 

970 

1153 

1243* 

TCBASB 

010763 

1162 

20639 

970* 



TCBAT 

□01056 

5139 

840 

603 

967 

TCCM 

001006 

4939 

592 

601 



1204 

121Q 

1218 

1220* 

1222* 

TCCHT 

001046 

5099 

832 

967* 

1200* 

1201 

TCDT 

001014 

4969 

%9 

1195 

TCDTT 

001052 

5119 

969* 




TCLVL 

001020 

4989 

776 



1003 

TCST 

001054 

4929 

594 

813 

966 

TCSTT 

001050 

5109 

828 

966* 

1246* 

1295* 

TCVTR 

001016 

4979 

774 

1174* 

TCWC 

§01010 

4949 

597* 

988 

1144 

1239* 

TCWCT 

001054 

5129 

836 

%8* 




L 


M04 

52 


1225 


1244 

1290* 

1331* 


976* 

1254 

977 

1303 

992* 

1311* 

996 

1344 

1206* 

1207 

1302* 

1343 

1007 

1301* 

1312 

1342 

1336* 

1240 

1242* 

1289* 

1330 * 


117 ? 1183 * 1190 1198 

1352 * 

1974 
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000400 

001000 

001400 

002000 

002400 
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N04 


SIS# 

937 

444# 

500 * 

499* 

445* 

388* 

537 

8S7* 

538* 

|* 

ft 

m 

1754 


B * 
* 
* 

• 

464* 

465* 

466* 

467* 

Nil* 

469* 

470* 

451* 

452* 

453* 

454* 

455* 

456* 

457* 

451* 

479* 

ihIh 

1148 

478* 

|* 


1142* 

458* 

1919 

867* 

868 


855 * 
871* 

{ 787 * 

1827* 

If 


m 

H8§ 

2057* 

1468 

1264 * 


1153 1156 


867* 

610 


659 684 




1604* 

616* 636* 


1602 


1848 1957 


1808 

1475 

ISOS 


1269 


m. 


1632 1659 


1738 


TC4 - TCI 1 TES' 
02TCDC.PU 


4 PttCYll 27(732) 08-SEP-76 09: CM PAGE 54 
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B 05 


WDATR 

WFSLkQ 

WFBLki 

WR8LK0 

URBLKl 

WRDCNT 

ymn 

WRDFRA 

«R0FSB 

yRDFRC 

I mm 


005036 

011266 

f 

oWSI 


1510 * 

1511 * 

Isle* 

1Q3QI 

13371 

las* 

1248 * 


mi 

1513* 

1516 

1514* 

{e|* 

1267* 

1264* 

1253s 


31311 

w 

1266 * 


3130 * 


137b* 

1259 * 


1271* 1275* 



QOlOOO 

1355 

1360s 





tSBrw? 

QQH&/ H 

1240* 

1138S 

IF 

1244* 

1261* 



WRDFR2 

0Q4766 

ll37* 

1355S 

1274* 




i%R?M s 

000012 

477* 






X s 

000007 

447* 

1612 

1617s 

1538 

1643* 1664 . 

1659# 17JS 1710* 1752 



iff!* 

1831S 

1517 

1922* 



XF'ARTY 

00*606 

1954 

384 




m ** 

217454 

3811 

382 

386 

392 399 

488* 490* 593 602 



1112 

1125 

21141 

2126* 

2138# 2150* 

2160# 2167# 21?*# 2121 


J 


a* 



} 



D05 

i 

;■ 








1244 

1572 

1573 

1868 

1902 




687 

692 

964 

978 

930 

1006 

1050 

1061 

1196 

1199 

1215 

1219 

1309 

1313 

1350 

1479 

1220 

1311 

1379 

• “30? 

A oJ W W 

1386 

1392 

1^14 

A • A «# 

844 

977 

979 

inn? 

A W W f 

1177 

7 ’ S3 

* 4k 4 

1274 

1 £1C 


675 

531 

593 

845 

550 

959 

392 

994 

1116 

1125 

1136 

1179 

1205 

1211 

t s : s 

A A. A A* 

£ £5.? 4 

1995 

1915 

1975 






1345 








562 

693 

714 

** * •* 

965 

975 

943 

A A# A %» 

1203 

1209 

1221 

1265 

1268 

!270 

1273 

i O' ; 

1123 

1256 

1239 

1290 

1330 

1331 

1365 

? 

A *0 

1153 

1195 

? SOI 

1207 

1594 




1434 








949 

954 

1101 

1115 

1 124 

1 ! sc 

a A <*0** 

« 'jnQ 

A *0 w w 

;i4Q 

1876 

1395 

1914 






537 

539. 

539 

540 

541 

542 

bus 
*0 ’ *0 

£44 

552 

553 

554 

555 

556 

557 

553 

ccc 

*0 *0 m 

567 

559 

559 

57Q 

571 

572 



796 








1454 

1481 

1513 

1514 

1593 

1307 

1347 


1330 

1382 

1384 

1397 

1466 

1480 

1498 

1504 

1551 

1652 

1676 

1679 

1690 

1719 

1721 

1-S3 

A * 

1803 

1942 

1944 

1978 

1997 

1934 

1935 

1937 

621 

625 

641 

642 

643 

844 

664 

573 

700 

701 

704 

705 

706 

703 

711 

712 

724 

725 

726 

727 

730 

731 

736 

III 

749 

750 

?5i 

752 

753 

754 

755 

737 

769 

770 

774 

775 

776 

780 

781 

-as 

* A# W 

879 

980 

837 

988 

399 

995 

900 

902 

935 

936 

937 

938 

950 

951 

966 

967 

1051 

1052 

1053 

1054 

1055 

1058 

1059 

♦ * 2 » 
A A A 

1237 

1239 

1240 

1243 

1246 

1264 

1288 

12b? 

1294 

1235 

1237 

1291 

1292 

1293 

1295 

t 

A 

1336 

1343 

1367 

1353 

1359 

1370 

1371 

• :o * 

* «»• A A 
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1385 

1393 

1394 

13% 

1411 

1412 

1427 


iISC 

iiil 

iff? 

i?44 

m 

1IM 

1567 

1345 


1902 

1948 

1953 

1955 




MCvS 

522 

fcpft 

536 

857 

859 

967 

971 


Iofe$ 


1173 

1175 

1301 

1342 

1352 


1605 

1956 






* 

rit: a 

1242 







NOP 

1259 

130? 

1348 





RESET 

lid 

794 

10?5 






RCL 

1074 

1077 

1078 

1393 

1443 

1445 

RCLS 

1444 

1447 

1450 





ROR 

QIC 

917 

918 

1076 

1079 

1373 

1374 

rt: 

na 

719 

729 

733 

742 

755 

764 


904 

922 

932 

957 

971 

990 


1214 

1217 

1263 

1310 

1317 

1351 

1356 

RTS 

702 

709 

870 

1401 

1410 

1418 

1458 

SJB 

80fe 

940 

1206 

1856 

1884 



SilAS 

1377 

1395 






TRAP 

487 







* 0 » 

573 

592 

594 

603 

732 

763 

794 


1254 

1303 

1344 

1453 

1478 

1523 

1532 

7S7B 

608 

691 

858 

1049 

1060 

1104 

1106 

.ASS 

379 







.ASCII 

1989 

1990 

1992 

1995 

1997 

2007 

2012 


2067 

2070 

2072 

2098 

2091 

2094 


.ASCII 

1999 

2000 

2003 

2025 

2028 

2034 

2036 


znrr 

*»<wM W 

2077 

2091 

2095 

2093 

2096 

2099 

.BYTE 

.963 

1035 

1035 

1234 

1235 

1589 

1590 

! 

£162 

2153 

2164 

2155 

2166 

2168 

2169 

-END 

£185 







. EVEN 

2106 







• Lie? 

* 

* 

377 

399 

530 

531 

I 3 ? 

533 


542 

543 

544 

545 

546 

547 

549 

" 

557 

558 

559 

550 

561 

562 

563 

i 

572 

1517 

1543 

1669 

1710 

1757 

1791 

1 .^: : r 

381 







!' Ni 1 ^ Q T 

* . >*» A w 

1 

378 

399 

530 

531 

532 

533 

! 

542 

543 

544 

545 

546 

547 

54S 

| 

557 

558 

559 

560 

561 

562 

563 

! 

£72 

1617 

1643 

1669 

1710 

1757 

1791 

! .RACE 

cr«* 

I've 

* w « w 

1612 

1664 

1705 

1752 



» * ftl.4 i 

t .R£P7 

i 

399 







' .TITLE 

1 






535 

: .WORD 

529 

530 

531 

532 

533 

534 

4 

544 

545 

546 

547 

548 

549 

550 

1 

! 

§59 

560 

561 

562 

563 

564 

565 



n 



1428 

1429 

1430 

1431 

1465 

1467 

1493 

4 Cf * z 
& «■#"«#< m 

illl 

1570 

i§54 

m 

lilt 

m 

1577 

1882 

iisi 

1604 

1901 

873 

914 

928 

946 

953 

1027 

iLTtU 

1042 

1372 

1432 

1503 

1508 

tr?p 

s w & 

1579 

1550 

•CCi 

* *Jm> S 


1446 

1375 

1443 

1376 

1449 

1437 

1438 

1439 

1440 

1441 

1442 

771 

773 

796 

792 

797 

853 

862 

ooc 

WWW 

993 

1002 

1026 

1118 

1127 

1138 

• * to 

A A w w 

? * 00 

S S W W 

1598 

1492 

1608 

1529 

1538 

1548 

1558 

f ZQ'? 

f -W ; 
S * W - 



947 

1606 

mi 

996 

1212 

993 

1215 

999 

1583 

1003 

1005 

1144 

1190 

2016 

2020 

2035 

2038 

2042 

2043 

2053 

2063 

2040 

2102 

2045 

2047 

2051 

2055 

2057 

a • — t, 

CJOU 

2065 

1609 

2033 

2103 

2156 

2117 

2153 

£15? 

3? C i 

S w A 

2170 

2172 

2173 

2175 

21*7 

2179 

Stan 

«■» s w w 

•# * 5* 

<w * ww. 

534 

535 

536 

537 

538 

539 

S4C 

Z 4 1 

549 

550 

551 

552 

503 

554 

555 

556 

564 

1831 

565 

1922 

566 

567 

568 

569 

W i w 

571 

534 

535 

536 

537 

538 

539 

540 

541 

549 

550 

551 

552 

553 

55« 

ecc 

W w w 


564 

1831 

565 

1922 

566 

567 

568 

569 

W< W 

.• > 

w ■ 


536 

537 

533 

539 

540 

541 

C S4 ,*• 

w • w 

5^3 

551 

552 

553 

554 . 

555 

ccc 

*** tm 

OO* 

559 

566 

567 

568 

etc 

W W J 

570 

fmm* , 
w< S 

ZOn 

W V w 
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rub 
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